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Il nome di Isaac Asimov è 
molto popolare tra i cultori 
della fantascienza per una 
fortunata serie di racconti di 
questo tipo. Non tutti sanno 
però che Asimov è 
soprattutto uno scienziato di 
talento che ha il dono di 
trasformare la complessa 
materia dei suoi studi in 
modo piano ed avvincente. 
Nato in Russia nel 1912 e » 


emigrato negli Stati Uniti da 
ragazzo, Isaac Asimov ha 
studiato chimica e 
biochimica alla Columbia 
University di New York, 
dove ha conseguito il titolo 
di Ph. D. (Philosophiae 
Doctor) nel 1948. È stato 
prima Assistant Professor 
poi Associate Professor di 
biochimica alla Boston 
University School of 


Medecine. Ha scritto più di 
duecento opere tra le quali 
un saggio sul cervello 
umano, uno sul codice 
genetico e una storia della 
biologia. Questo suo 
articolo viene pubblicato da 
List grazie alla cortesia della 
rivista statunitense 
«Dialogue» e dell’US 
Information Agency di 
ftom^^M m 







di Isaac Asimov 


Siamo entrati nell’era dei robots: ce 
ne sono 25.000 nel mondo e si 
prevede che diventeranno più o 
meno 115.000 entro il 1990. 

Ma siamo solo agli inizi; i robots 
attuali non sono assolutamente gli 
umanoidi che troviamo nella 
letteratura di fantascienza, robots 
che vedono, parlano e pensano; 
sono soltanto delle leve 
computerizzate (controllate da un 
cervello elettronico) predisposte per 
fare sempre lo stesso lavoro 
semplice e ripetitivo. Sebbene 
verranno resi presto più complessi, 
versatili e capaci dovranno fare 
ancora molta strada prima di avere 
almeno l’aspetto di esseri umani 
artificiali. 

Ciò che li rende interessanti pur 
nella loro attuale semplicità è il 
genere di lavoro che possono fare, 
ora o fra poco. Potranno accollarsi 
compiti rischiosi o resistere in 
condizioni pericolose che esseri 
umani preferirebbero senz’altro 
evitare anche se finora sono stati 
costretti ad impegnarcisi. I robots 
lavoreranno nello spazio, nelle 
miniere, sott’acqua, tratteranno 
esplosivi, materiale radioattivo, 
sostanze chimiche tossiche, batteri 
patogeni, avranno a che fare con 
eccezionali livelli di temperatura, di 
pressione, di altezza, eccetera. 

La maggior parte di questi robots 
possono fare lavori che, anche se 
non pericolosi per il fisico, sono 
talmente monotoni e ripetitivi da 
mortificare, rendendola inutile, 
qualsiasi mente umana costretta ad 
impegnarcisi per lunghi periodi di 



tempo. Questo genere di lavoro che 
nuoce alla mente va invece 
benissimo per i robots che possono 
farlo all’infinito senza annoiarsi né 
deprimersi e sono anzi in grado di 
farlo con maggiore precisione e 
affidabilità. Come risultato, gli esseri 
umani, liberati dalla schiavitù di 
lavori così subumani, potranno 
dedicarsi a cose più creative e 
gratificanti. 

Comunque, prima di rallegrarsi 
troppo a questa prospettiva vale la 
pena ricordare che «essere liberati 
da un lavoro indesiderabile» può 
benissimo tradursi in «buttato fuori 
dall’impiego». Un lavoro può 
sembrare indesiderabile a chi lo 


vede dall’esterno ma per colui che vi 
lavora è «il pane». Il robot, in altre 
parole, porta con sé la minaccia 
della disoccupazione tecnologica e 
la conseguente perdita della 
sicurezza economica e della dignità. 
Si potrebbe argomentare che il 
progresso tecnologico è sempre 
stato dalla nostra parte e che questo 
progresso, la storia insegna, ha 
sempre creato più posti di lavoro di 
quanti ne abbia distrutti. L’avvento 
deH’automobile fece uscire di scena, 
lasciandoli senza lavoro, numerosi 
fabbri e fabbricanti di calessini, e 
fece diminuire la richiesta di 
cocchieri, frustini e fieno; creò, 
comunque, un numero molto più alto 
di posti di lavoro che avevano 
attinenza con l’automobile e fece 
aumentare notevolmente la 
domanda di benzina, gomma e 
autostrade. 

Pensate quindi a tutti i posti di lavoro 
che verranno creati dall’esigenza in 
costante aumento, di progettare e 
programmare nuovi robots, di 
provvedere alla manutenzione e 
riparazione dei robots già in 
funzione, di costruire impianti per la 
produzione di robots e di ristrutturare 
intere industrie in modo che possano 
utilizzare adeguatamente i robots. Ci 
sarà molto più lavoro, molti più posti 
di lavoro in una società «robotizzata» 
che in una non «robotizzata». 
Comunque questo è un punto di 
vista globale, a lunga portata che 
non tiene conto delle tragedie 
individuali che (si compiono) 
avvengono mentre la società si 
adegua lentamente al nuovo. 
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Quando scompare un lavoro può 
non esserne ancora comparso un 
altro nuovo, oppure quello nuovo 
potrebbe presentarsi in un luogo 
molto lontano, o (con tutta 
probabilità) potrebbe essere di 
natura completamente diversa. Un 
operaio alla linea di montaggio che 
ha sempre stretto bulloni, quando il 
suo lavoro scompare non può 
lasciare il posto e, come se niente 
fosse, prenderne un altro per 
occuparsi, ad esempio, della 
riparazione dei robots. 

Una cosa è certa. In effetti possiamo 
esser certi che i lavoratori sostituiti 
dai robots non avranno i requisiti per 
fare i lavori nuovi (che si creeranno). 

I lavori persi a causa dei robots 
saranno precisamente quelli dei 
lavori meccanici, ripetitivi e non 
creativi, proprio quelli che può fare 
un robot. I lavori nuovi richiederanno 
conoscenze altamente specializzate 
e facoltà intellettuali altrimenti anche 
questi verranno persi e passeranno 
ai robots. E, quel che più conta, i 
cambiamenti tecnologici hanno 
subito un’accelerazione costante nel 
corso della millenaria storia 
dell’uomo e quindi gli sconvolgimenti 
prodotti dalla «rivoluzione robotica» 
ci colpiranno di sorpresa molto più 
rapidamente e investiranno una 
parte dell’umanità molto più grande 
di quanto non sia avvenuto per 
sconvolgimenti analoghi quali, ad 
esempio, quelli della Rivoluzione 
Industriale ai suoi inizi, due secoli fa. 
Naturalmente non possiamo 
aspettare che questi sconvolgimenti 
si assestino da sé. Se la società 
deve essere mantenuta stabile è 
necessario impegnarsi seriamente 
per ridurre al minimo i traumi e 
rendere il più possibile indolore il 
periodo di transizione. Si dovrà 
provvedere a varare vasti programmi 
di formazione e istruzione per 
riciclare il personale e quindi favorire 
il cambiamento di mansioni. Le 
industrie, con l’aiuto attivo dei 
governi dovranno dirigere questi 
programmi i cui alti costi investiranno 
tutta la società nel suo complesso. 

Se tutto funzionerà bene il periodo di 
transizione, benché doloroso e 
oneroso, non dovrebbe durare a 
lungo. Con una trasformazione 
adeguata del settore dell’istruzione 
dovrebbe venire alla ribalta una 
nuova generazione che si troverà 
bene in un mondo di robots e di 
computers, una generazione che fin 


dall’infanzia verrà stimolata ad 
essere creativa in modo da fare il 
genere di lavoro che non possono 
fare i robots. L’insegnamento verrà 
adeguatamente modificato con un 
vasto impiego di computers 
domestici collegati con terminali al 
cervello elettronico di una biblioteca 
centrale per dare ad ogni individuo 
la massima possibilità di integrare 
l’insegnamento ufficiale con un 
lavoro supplementare che ciascuno 
potrà fare quando vuole, al ritmo che 
riterrà più opportuno e su argomenti 
e materie di sua scelta. 

Questo potrà sembrare un’utopia a 
coloro — e sono molti — che 
sostengono che la creatività è una 


dote rara che solo pochi hanno o 
possono avere e che la maggior 
parte delle persone è condannata a 
lavori da robot in quanto è l’unica 
cosa, questa, che sono in grado di 
fare. È per questo — si potrebbe 
argomentare — che l’introduzione 
dei robots sarebbe disastrosa, 
perché provocherebbe 
sconvolgimenti cui non si potrebbe 
mai rimediare. 

Una previsione così pessimistica 
forse non è giustificata. C’è stato un 
tempo in cui il saper leggere e 
scrivere era un patrimonio raro che 
solo una piccola parte della 
popolazione possedeva. Si sarebbe 
potuto, a ragione, pensare che 
pochissimi avevano le capacità 
intellettuali per acquisire conoscenze 
così elevate come quelle richieste 
per saper leggere e scrivere; che 
mai una tale capacità sarebbe stata 


posseduta da più di un ristretto 
numero di uomini eccezionali; che la 
maggior parte della gente sarebbe 
stata condannata per sempre a 
lavori che altrimenti avrebbero potuto 
esser fatti da animali. 

Tuttavia, quando l’industrializzazione 
rese necessaria l’istruzione vennero 
aperte, nel 19° secolo, scuole 
pubbliche gratuite e ben presto 
risultò che la stragrande 
maggioranza degli uomini poteva 
imparare a leggere e a scrivere. 
Quindi in un mondo in cui robots e 
computers fanno il lavoro che così 
non devono fare gli esseri umani, ed 
in cui l’insegnamento potenziato dal 
calcolatore fa la sua parte, può 


benissimo risultare che la creatività 
in un modo o nell’altro è davvero 
patrimonio comune a tutti i cervelli 
umani che funzionino normalmente. 
Comunque vi sono pericoli più 
drammatici della disoccupazione. Gli 
esseri umani non potrebbero venire 
uccisi dai robots. I robots potrebbero 
venire progettati? e programmati per 
essere soldati? Le macchine 
distruttive che impieghiamo adesso 
nelle nostre guerre potrebbero esser 
rese ancora più spaventose 
conl’aiuto della computerizzazione? 
Per stare sicuri, gli uomini hanno 
messo quasi ogni progresso 
tecnologico al servizio dell’impulso 
distruttivo; ma l’umanità ha già 
portato la potenza bellica ad un 
punto in cui la civiltà può venire 
spazzata via in un sol giorno. Non 
possiamo certo salvarci interdicendo 
i robots. In tutto il mondo la gente ha 
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paura della guerra e questa paura 
generale che cresce ogni anno di più 
può riuscire a porre fine alla guerra 
— nel qual caso non ci saranno 
robots soldati. 

Prendiamo però in considerazione 
ancora un altro e forse il più estremo 
dei potenziali pericoli dei robot e dei 
calcolatori più in generale. Si 
faranno robots sempre più sofisticati 
e abili, verranno creati robot con 
mani che si muovono abilmente e 
con vari sensi; alla fine si potrebbe 
arrivare addirittura a fabbricare dei 
robots capaci di qualcosa di molto 
simile al raziocinio. Non potrebbero 
allora sostituirci in un numero 
sempre maggiore di lavori, in lavori 
più complicati, in lavori più creativi? 
Non potrebbe succedere che gli 
esseri umani siano costretti a 
passare da un lavoro all’altro alla 
continua ricerca di qualcosa che i 
robots non possono fare meglio di 
loro e scoprire poi che i robots li 
seguiranno a livelli sempre più alti 
fino al punto in cui non ci sarà più 
nulla da fare per gli esseri umani? 

Gli uomini saranno dunque costretti 
all’inattività e alla noia fino ad 
estinguersi per l’assoluta mancanza 
di stimoli che diano significato alla 
vita? In breve, l’Homo sapiens 
diventerà prima obsoleto e poi 
scomparirà, e sarà il robot Homo 
superior, a sostituirlo? 

Sarebbe il caso di chiedersi, con 
cinismo, se dopotutto questo non 
sarebbe un processo logico e 
razionale. Se si arrivasse a 
progettare robots, tali da essere più 
forti e più intelligenti degli esseri 
umani e se venisse dato loro un 
senso del dovere e degli obblighi 
sociali superiore a quello che 
abbiamo noi, non sarebbe giusto che 
ci sostituissero? 

Ma queste sono fantasie sgradevoli 
e fastidiose. C’è, stato e ci sarà 
sempre tanto di buono e di 
prodigioso negli uomini, e con l’aiuto 
dei robots e dei calcolatori in 
generale forse siamo ancora in 
tempo per salvare noi stessi e il 
mondo. 

A parte questo, anche se potessimo, 
in preda alla disperazione, cercare di 
rassegnarci all’idea che i robots 
prendano il nostro posto, la cosa 
potrebbe rivelarsi impossibile. Non è 
affatto facile competere con il 
cervello umano, vince sempre. Il 
cervello umano contiene 10 miliardi 
di neuroni e 100 miliardi di corpi 


cellulari. Ogni neurone è collegato 
ad un numero di altri che varia fra i 
100 e i 100.000, così da formare 
una rete incredibilmente complessa. 
Ma non basta: ogni neurone non è 
soltanto un interruttore ma è un 
sistema chimico-fisico estremamente 
complesso che siamo ancora ben 
lontani dal capire. È quasi 
impossibile esprimere e senz’altro 
non facile da comprendere la 
complessità del cervello nel suo 
insieme. 

Il cervello umano è fatto di proteine 
e di acidi nucleici, risultato di tre 
miliardi e mezzo di anni di complessi 
processi evolutivi operati mediante 
selezione naturale per l’adattamento 


all’ambiente al fine della 
sopravvivenza. Il calcolatore è fatto 
di dispositivi elettronici allo stato 
solido (solid-state) e di elettricità, 
risultato di quattro decenni di 
avvedute migliorie operate dagli 
uomini al fine di produrre qualcosa 
che ci servisse in modo sempre più 
efficiente e valido. Con tali differenze 
nella struttura, nell’evoluzione e nel 
fine sarebbe perlomeno strano se i 
due prodotti fossero in qualche 
modo paragonabili. 

Un calcolatore è progettato 
essenzialmente per fare aritmetica. 
Qualunque problema, per quanto 
apparentemente complesso, che 
possa essere scomposto in una ben 
determinata serie di operazioni 
aritmetiche, può essere risolto da un 
calcolatore. Che il calcolatore possa 
stupirci per le sue capacità non 
dipende dalla natura delle operazioni 


aritmetiche che può svolgere ma dal 
fatto che può fare queste operazioni 
in miliardesimi di secondo e senza 
errori. 

Il cervello umano, invece, è 
incredibilmente scarso in aritmetica. 
Ha bisogno, ed ha sempre avuto 
bisogno, di aiuto esterno per 
risolvere i problemi più semplici. 
Abbiamo cominciato a contare sulle 
dita e siamo passati a qualcosa di 
meglio solo con l’aiuto dell’abaco e 
di carta e penna; I numeri arabici, i 
logaritmi regoli calcolatori, macchine 
calcolatrici e, infine, i calcolatori. 
Compito del cervello non è affatto la 
manipolazione dei numeri ma è, 
come è sempre stato, il 


discernimento e la creatività: l’abilità 
di giungere ad una conclusione 
logica sulla base di prove 
insufficienti; la capacità di pensare in 
modo filosofico, intuitivo, fantasioso, 
immaginativo; la possibilità di 
ricavare bellezza, esaltazione e 
piacere dal mondo che ci circonda e 
da ciò che noi stessi modelliamo e 
che, senza di noi, non esisterebbe. 
Alla fine, non potremmo arrivare a 
programmare robots che facciano 
cose simili? Non sarebbe facile. 
Tanto per cominciare non sappiamo 
come facciamo a farle, e quindi il 
problema di organizzare il 
comportamento dei robots perché 
così si comportino in modo umano 
sarebbe un problema veramente 
difficile. 

Pensateci. Voi, o pressocché 
chiunque, può guardare la lettera A 
nella sua forma maiuscola, o 
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minuscola o in corsivo, o in neretto o 
in uno qualunque delle centinaia di 
caratteri di stile diverso, oppure 
come maiuscola o minuscola nelle 
grafie di mille persone diverse. In 
ciascun caso la riconoscerete, quasi 
immediatamente e senza difficoltà, 
come la lettera A. Restereste 
senz’altro sorpresi se vi dicessero 
che avete fatto qualcosa di notevole, 
eppure i calcolatori, finora, non 
possono essere programmati per 
fare una cosa del genere. 

Voi potete riconoscere un gran 
numero di voci e siete in grado di 
farlo subito anche se risultassero 
deformate per un telefono o un 
registratore difettosi. Un calcolatore 
non può essere programmato a fare 
così. 

lo posso scrivere della buona prosa 
al ritmo di cento parole al minuto e 
farlo senza percettibile sforzo, ma 
non so come lo faccio, e quindi non 
so come programmare un robot a 
farlo. 

In una partita di baseball al colpo di 
mazza, un’«esterno» esperto riesce 
a fare una valutazione immediata di 
quella che sarà la traiettoria della 
palla, tenuto conto della resistenza 


deN’aria, della direzione e della forza 
del vento e chissà di cos’altro 
ancora. Si precipiterà quindi di corsa 
verso un punto del campo e 
afferrerà la palla al volo. Non so 
come faccia e neppure lui lo sa. 

Solo che lo fa. 

Qussi tutti gli uomini, anche quelli 
che sembrano molto comuni, 
possono fare qualcosa molto bene 
senza sapere come fanno a farla, e 
tutte queste sono cose di uomini che 
forse nessun robot farà mai. Al solo 
scopo di interessare il pubblico 
potremmo riuscire a programmare 
un robot perché faccia qualcosa di 
umano in modo rudimentale — ma 
perché (fare tanta fatica) darsi tanta 
fatica quando qualunque uomo o 
qualunque donna, può farlo molto 
ma molto meglio? 

No, se dalla nostra tecnologia dovrà 
venire l’Homo superior, sarà da noi 
stessi che uscirà. Con le tecniche 
più avanzate di ingegneria genetica 
possiamo benissimo imparare a 
migliorare il nostro cervello e ad 
aumentarne l’efficienza mentre 
apprendiamo anche a potenziare le 
capacità dei robots. Certo, i nostri 
calcolatori ci aiuteranno a far 


progredire i nostri cervelli ed i nostri 
cervelli progrediti ci aiuteranno a 
migliorare i nostri progetti di robot, in 
un effetto di sovrapposizione a 
catena. 

Il risultato finale sarà che robots e 
uomini continueranno a procedere 
lungo strade parallele, ciascuno 
facendo sempre meglio ciò che è 
idoneo a fare. Con talenti così 
diversificati ci sarà sempre spazio 
per entrambi: uomini e robots. Come 
alleati che collaborano invece che 
come avversari in lotta potremo 
riuscire a comprendere sempre 
meglio il comportamento 
dell’universo ed a capire come 
utilizzare impiegare accortamente le 
sue leggi, riuscendo a fare insieme, 
molto ma molto di più di quanto 
ciascuno sarebbe in grado di fare da 
solo. 
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«Personal robot» del tipo attualmente in 
commercio programmabili per svariati 
lavori semplici sono diventati accessibili 
a tutti entusiasmando migliaia di 
appassionati negli Stati Uniti. Spesso 
venduti in confezioni «costruisci!o-da-te> 
modelli come questi e quelli della pagina 
precedente potrebbero un giorno essere 
in grado di svolgere lavori di «routines» 
come aspirare la polvere e tosare prati. 
Attualmente esistono molti ostacoli a 
queste applicazioni pratiche «Gli unici 
che apprezzano veramente persone così 
attive» ci confida un ricercatore «sono 
coloro che con un robot cercano di fare 
alcune delle cose più semplici che 
possono fare gli uomini». I robot si sono 
comunque dimostrati preziosi 
nell’assistenza agli handicappati. Il 
braccio-robot controllato da un 
microcalcolatore (illustrato qui sopra) fa 
parte di un sistema di movimenti 
inventato ultimamente, grazie al quale un 
robot può muoversi facilmente in 
qualunque direzione e verrà usato 
inizialmente per sedie a rotelle 
motorizzate. 

Robot industriali come questi 
rappresentano il tipo di gran lunga più 
diffuso negli Stati Uniti. A differenza delle 
normali macchine, questi possono fare 
più di un lavoro se i calcolatori che li 
controllano sono stati adeguatamente 
programmati. Attualmente sono oltre 
6.000 quelli impiegati dall’industria 
americana, soprattutto in lavori ripetitivi 
alla linea di montaggio, dove sono 
instancabili e più produttivi di operai 
umani. In certi casi i robots industriali 
svolgono lavori ritenuti troppo pericolosi 
per gli uomini — come, ad esempio, le 
colate sotto pressione — oppure 
provvedono a maneggiare rifiuti 
contaminati. Nella foto sopra un 
robot-saldatore a punti attacca pezzi di 
carrozzeria di furgoni Chrysler in una 
fabbrica di automobili, il tipo d’industria in 
cui i robot sono stati adottati più 
largamente. A destra, un robot che 
ricorda un carrello a forca distribuisce i 
pezzi'ài vari posti di lavoro in una delle 
fabbriche più automatizzate del paese, 
uno stabilimento di montaggio Apple 
Computer, in California. Sotto, un 
calcolatore costruisce un calcolatore — il 
braccio di un robot di montaggio, diretto 
da un programma al calcolatore, 
inserisce un chip di silicio in un quadro 
circuiti nello stabilimento della General 
Electric nel Michigan. 

Negli Stati Uniti il settore dei robot è 
progredito enormemente negli ultimi venti 
anni, innanzitutto per gli studi e le 
ricerche svolti presso i laboratori 
sull’Intelligenza Artificiale (Al) sotto la 
direzione di alcune università. Uno dei 
problemi fondamentali è rappresentato 
dalla costruzione di una «mano» o di 
una pinza che abbia anche lontanamente 
la destrezza di una mano umana. Sopra, 
una pinza a due dita in fase di 


perfezionamento all’Università del 
Massachusetts; la foto illustra la difficoltà 
del problema — come fornire il robot di 
sufficiente senso tattile che gli permetta 
di prendere un uovo senza romperlo. La 
foto sopra, nella pagina a fronte, mostra 
una mano-robot messa a punto presso i 
laboratori Al del MIT, dal ricercatore Ken 
Salisbury che dà una idea di come 


manipolare oggetti con più pinze-robot 
per «cercare di assemblare un’auto con 
le pinze». Il diagramma a sinistra è un 
disegno fatto al calcolatore per un altro 
braccio-robot, creato presso i laboratori 
Al della Stanford University. 


Fotografia di Dan McCoy/Rainbow 
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Aristotele di Stagira, massimo 
scienziato e filosofo greco, discepolo 
di Platone e maestro di Alessandro 
Magno sosteneva che la schiavitù 
sarebbe sparita il giorno in cui i telai 
avessero lavorato da soli e uno 
strumento musicale, la lira, suonato 
senza la mano dell’uomo. 

Il bisogno di liberare l’uomo dal peso 
del lavoro con l’impiego di macchine 
è vecchi come l’uomo. In effetti 
l’uomo ha sempre sfruttato le proprie 
facoltà al fine di realizzare sistemi 
che gli consentissero di procurarsi 
ciò di cui aveva bisogno con il 
minore sforzo possibile. Per questo 
l’uomo ha sempre cercato di 
programmare le proprie attività fin 
dalla Preistoria. 

Erone di Alessandria, che aveva 
progettato un sistema a vapore per 
aprire le porte, descrisse anche un 
arsenale pieno di burattini che 
segavano e ordinavano tavole di 
legno per costruzione anticipando di 
molto i robots (dei quali Isaac 
Asimov parla in altra parte della 
nostra rivista) e la fabbrica 
automatizzata. 

Un altro concetto che risale alla 
remota antichità è quello della 
specializzazione. In un primo tempo, 
infatti, tutti gli uomini si muovevano 
per compiere qualsiasi tipo di lavoro. 
Poi si capì che la ripetitività delle 
operazioni consentiva ad un 
individuo di produrre velocemente, e 
in maniera più abile, per sé e per gli 
altri. Nel corso dei millenni poche 
sono state le modificazioni 
organizzative in questo modo di 
produrre. Ma nel 18° secolo lo 
sviluppo di nuove tecnologie, della 
domanda e dei mercati, sconvolge il 
modo di produrre. Il moltiplicarsi 
delle invenzioni e di nuovi metodi da 
applicare al processo produttivo 
danno il via a quella che è 
comunemente nota come la 
rivoluzione industriale. Un tempo le 
procedure di lavoro venivano 
tramandate di padre in figlio, 
dall’artigiano all’apprendista, senza 
particolari variazioni. Ma nel 18° 
secolo, c’erano ampie disponibilità di 
capitali, e il bisogno di risparmiare 
manodopera e combustibile. I 
mutamenti più significativi nel 
produrre avvennero in tempi molto 
brevi. 

Il primo settore a prendere la via 
della meccanizzazione, è certo, fu 
quello della filatura. A quel tempo 
occorrevano almeno cinque filatrici a 
tempo pieno per tenere in funzione 


un telaio e non sempre la 
manodopera era sufficiente 
soprattutto nel periodo della mietitura 
che assorbiva donne e avventizi. 
Questa vicenda cominciò in Gran 
Bretagna dove, quando questi 
fenomeni cominciarono a svilupparsi 
il lavoro non era ancora organizzato 
in maniera particolare. Questa 
esigenza però venne sentita poco 
tempo dopo quando cominciò 
davvero lo sviluppo della tecnologia 
e della meccanizzazione. A questo 
punto la produttività dipendeva più 
dalla organizzazione del lavoro che 
dalla abilità del singolo. 

Adam Smith, figlio di un magistrato 
scozzese, padre del liberalismo, 
dimostrò nella sua opera principale 
«La ricchezza delle nazioni» scritta 
nel 1776, come lo sforzo produttivo 
di una fabbrica potesse venire 
migliorato con la specializzazione di 
ogni lavoratore in un solo compito 
ripetuto all’infinito. 

Con una felice definizione le 
macchine, che ai giorni nostri hanno 
preso alcuni dei posti ai quali, a quel 
tempo, era deputato l’uomo, 
vengono chiamate «le contrazioni 
muscolari» dell’automazione. 

La sostituzione degli uomini con le 
macchine comincia già mentre Smith 
scrive le sue teorie e durante la 
Seconda Guerra Mondiale la catena 
di montaggio, già in funzione da 
quasi mezzo secolo, progredisce 
ancora con le macchine a 
trasferimento automatico. Una 
catena di montaggio con macchine a 
trasferimento automatico è simile ad 
una catena di montaggio normale, 
ma senza la presenza deH'uomo. 
Ogni macchina riceve un pezzo del 
lavoro, esegue le operazioni per le 
quali è stata costruita, poi, 
automaticamente, lo passa alla 
macchina successiva. L’intero 
processo produttivo, dunque, 
avviene sotto il controllo delle 
macchine. 

Fin qui i processi di 
meccanizzazione. La vera 
automazione viene però conquistata 
dall’uomo con i meccanismi 
autoregolati. Si tratta, in sostanza, di 
meccanismi ai quali vengono 
impartite istruzioni, che vengono 
programmati per compiere 
operazioni a volte molto complesse. 
Questi meccanismi possono 
compiere rallentamenti, variazioni, 
accelerazioni nel lavoro che stanno 
facendo, o operare anche il blocco 
totale delle operazioni in atto. 


Queste «decisioni» vengono prese 
da un meccanismo di rinvio o 
controreazione, che sostituisce 
l’uomo e che garantisce, in un 
impianto ben programmato, grande 
efficenza e rapidità di decisioni. Il 
meccanismo di rinvio è costituito da 
vari elementi: i principali sono i 
sensori e i servomeccanismi. 

I sensori sono l’equivalente dei sensi 
del corpo umano; inviano 
informazioni al cervello dell’impianto. 
Questi sensori utilizzano strumenti 
fisici, elettrici, ottici o di altra natura 
per controllare le varie fasi del lavoro 
e, a differenza deH’uomo, sono molto 
più precisi. I dati forniti dai sensori 
vengono paragonati con altri 
elementi, inseriti in precedenza nel 
calcolatore che governa tutta 
l’operazione, per sapere se il lavoro 
viene eseguito alla perfezione. Se 
c’è differenza tra i dati inviati dai 
sensori e quelli base, un circuito 
chiamato elemento di 
determinazione attiva un elemento di 
controllo o servomeccanismo, che 
compie le operazioni di correzione 
necessarie. 

I sistemi di controllo che l’uomo ha 
introdotto nel processo produttivo 
sono oggi molto complessi e 
realizzabili solo con elaboratori molto 
sofisticati poiché prevedono un 
numero incredibile di variabili. 
Dall’automazione l’uomo è stato 
indotto a progettare e a strutturare 
macchine e oggetti a lui adatti. Lo 
studio di questa materia viene 
chiamato ergonomia, da «ergos» 
che vuol dire lavoro e «nomos» che 
vuol dire conoscenza. 

L’ergonomia è, in sostanza, lo studio 
che viene fatto per introdurre 
elementi psicologici e tecnici nei 
problemi che riguardano 
l’adattamento dell’uomo alle 
macchine o viceversa. L’ergonomia, 
secondo alcuni, è la scienza che si 
occupa di progettare fabbriche e 
oggetti che l’uomo possa adoperare 
alleviando la sua fatica. 

Come molte discipline che si stanno 
velocemente sviluppando, 
l’ergonomia è una attività 
interdisciplinare. Biomeccanica, 
psicologia, progettazione industriale, 
acustica, ottica e ricerche più 
generali concorrono all’ergonomia 
che, con il passare del tempo, 
acquista sempre maggiore 
importanza nelle attività del genere 
umano. Un esempio: negli ultimi 
trent’anni gli scolari di tutte le scuole 
del mondo occidentale sono 
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cresciuti, in media, di quattro o 
cinque centimetri in più, mentre le 
proporzioni dei banchi e delle altre 
suppellettili scolastiche sono rimasti 
invariati. In questo modo i ragazzi, 
curvi in maniera innaturale sui 
banchi, possono maturare 
malformazioni irreversibili in età 
adulta. 

Gli studiosi del MIT di Boston che, 
come i giapponesi e i sovietici, 
studiano da tempo questi fenomeni, 
sostengono che, con l’automazione 
la fabbrica così come oggi la 
intendiamo, ha gli anni contati. Un 
tempo le fabbriche venivano 
progettate per il binomio 
uomo-macchina. Ma se uno dei due 
componenti il binomio sparisce 
(l’uomo) allora la fabbrica può 
essere costruita in maniera 
completamente diversa in lunghezza, 
larghezza e altezza. 


Uno degli incidenti più gravi tra quelli 
avvenuti in un impianto industriale è 
quello del Marzo del 1979 nella 
centrale nucleare di Three Mile 
Island, non lontano da Harrysburg, in 
Pennsylvania. In quella occasione i 
tecnici fecero, in successione, una 
serie di errori di comando che 
portarono il reattore della centrale 
nucleare in fase critica. Ci furono 
conseguenze molto pesanti e, ancor 
oggi, l’intera centrale non è stata 
completamente riattivata. Le indagini 
della commissione d’inchiesta 
rivelarono, tra l’altro, che i pannelli di 
controllo e di comando erano stati 
sistemati in modo sbagliato e che i 
tecnici, quando lavoravano, non 
potevano vederli 
contemporaneamente come 
avrebbero dovuto. 

L’automazione con l’ergonomia, 
dunque, hanno notevolmente 


migliorato negli utimi decenni la 
produttività, l'efficenza e la sicurezza 
del lavoro in molti settori dove, ad 
esempio, l’uomo poteva subire danni 
alla salute. I robots, che si stanno 
diffondendo in modo massiccio nei 
settori dove il lavoro può essere 
automatizzato, stanno per cambiare 
radicalmente l’aspetto di molti 
impianti industriali. Ma, come in tutte 
le attività del genere umano, esiste 
anche il rovescio della medaglia. 

Una società completamente 
automatizzata non è immune da 
errori che potrebbero avere 
conseguenze inimmaginabili. Ben 
vengano le macchine, quindi, se 
servono ad aiutare l’uomo nei lavori 
più difficili e pericolosi per la sua 
salute. Ma ricordiamoci che l’uomo 
resta sempre il punto di riferimento 
di tutto il sistema. 

Giuseppe Breveglieri 
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SOFTWARE 

GAMES 



KNIGHT LORE 


KNIGHT LORE è una delle 
ultime novità della ULTIMATE, 
nota casa produttrice di ottimo 
software per lo SPECTRUM. 
La referenza è sicuramente 
una garanzia, ma la validità 
del gioco appare in tutta la 
sua evidenza già quando 
viene «portato» sul computer. 

Il primo pregio è infatti proprio 
il trasferimento da nastro di 
tipo «TURBO» che raddoppia 
la normale velocità di 
caricamento del programma. 
Annunciato come seguito di 
Atik-Atak, altro programma di 
successo della ULTIMATE, 
KNIGHT LORE si presenta 
ugualmente con una splendida 
versione tridimensionale. 


IL GIOCO: 

Si deve guidare attraverso le 
numerose stanze di un antico 
castello, uno strano 
personaggio che, al calar del 
sole, si trasforma in lupo; ma 
attenzione perché durante 
questa metamorfosi rimane 
indifeso dai numerosi pericoli 
sempre incombenti. 
Muovendosi nelle varie e 
bellissime stanze ci si imbatte 
in alcuni oggetti che, secondo 
le necessità, devono essere 
raccolti e portati via (fino ad 
un massimo di tre e 
visualizzati nella parte in 
basso a sinistra dello 
schermo). 

Quattrodici di questi devono 
essere depositati in un 
calderone custodito da un 
mago e posto in una stanza 


del castello: il tutto entro 
quaranta giorni. 

Gli oggetti sono di sette tipi 
differenti, per un totale di 32, e 
sono sparsi per le 127 stanze 
del castello. 

Ad ostacolare il compito vi 
sono però numerosi imprevisti: 
mine che cadono dal soffitto, 
fantasmi che vagano, sfere 
misteriose pericolose 
specialmente durante le ore 
notturne, grate che salgono e 
scendono, guardiani e 
numerose altre trappole. 
Trovare le «statuine» 
permetterà di guadagnare una 
vita. 

Ai fini del gioco si consiglia di 
raccogliere due oggetti per 
ogni specie e portarli nelle 
immediate vicinanze del 
calderone, ricordando però 
che non possono esserne 
lasciati più di due per stanza. 

È anche conveniente tenere 
sempre con sé almeno un 
oggetto visto che, a seconda 
dei casi, può risultare utile per 
superare situazioni difficili. 

I meno coraggiosi (o i più 
pigri) possono avvalersi della 
Mappa pubblicata dove, tra 
l’altro, sono indicate la 
posizione del calderone e 
degli altri oggetti. Ricordate 
che pur non cambiando la 
posizione varia però il tipo di 
oggetto rappresentato, come 
pure cambia la posizione di 
partenza del nostro eroe. 
KNIGHT LORE è un gioco 
eccellente, in cui grafica, 
tridimensionalità e sprites 
costituiscono i punti di forza. 
Buoni gli effetti sonori, ridotto 
all’essenziale il colore, ottima 
la giocabilità da tastiera oltre 
alla possibilità di usare più tipi 
di joystick. 

KNIGHT LORE è un gioco che 
non dovrebbe assolutamente 
• mancare nella vostra 
collezione di software. 
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L’Italia sullo stesso livello dei paesi del Terzo Mondo in 
campo informatico e, in genere, dei nuovi media ha 
rappresentato per molto tempo l’incubo delle persone 
più avvedute in questo settore. Qualcuno oggi afferma 
con molto pessimismo — troppo davvero — che alcuni 
di questi paesi potrebbero superarci tra non molto se 
non imprimeremo una maggiore velocità alle decisioni 
sulle strategie da adottare in questo campo. 

L’Italia, in sostanza, non ha avuto come la Francia il 
suo rapporto sull’informatica commissionato nel 76 dal 
presidente della Repubblica Francese a Simon Nora e 
Alain Mine. Un rapporto che ha poi consentito a 
Giscard D’Estaing di imprimere al suo paese quella 
spinta che ha fatto della Francia uno dei paesi leader 
nella sperimentazione telematica. E pensare che, 
all’origine le storie dell’informatica francese e italiana 
correvano parallele. Sia pur per vie diverse le industrie 
nazionali dei due paesi erano arrivate ad occuparsi 
delle grandi calcolatrici elettroniche e, 
conseguentemente, a lottare sul mercato con le grandi 
imprese americane del settore. Ma l’impegno era 
drammaticamente insostenibile per francesi ed italiani 
(BULL e Olivetti) che a quel tempo registrarono pesanti 
perdite in questo settore. 

Il diverso epilogo di queste due storie dipende in gran 
parte dalla diversa ottica con la quale, allora, la classe 
politica dei due paesi guardò al fenomeno. In Francia si 
capì subito che una industria elettronica nazionale 
avrebbe avuto un ruolo economico, politico e culturale 
di grande importanza per il paese mentre da noi 
l’inerzia ci fece perdere molto tempo. Oggi, per fortuna 
le cose paiono cambiate; che il settore delle 
telecomunicazioni e dell’elettronica sia un fattore 
essenziale dello sviluppo e un effettivo vincolo di 
crescita è cosa ormai nota a tutti nel mondo politico, 
economico ed industriale di casa nostra, ma non è 


ancora chiaro se riusciremo a recuperare il tempo 
perduto. 

Nel 1983 sul mercato dell’informatica e delle 
telecomunicazioni sono stati investiti 150 miliardi di 
dollari, come dire trecento mila miliardi di lire, una cifra 
destinata al raddoppio entro il 1990 mentre entro il 
2000 è ormai certo che l’industria della comunicazione 
scavalcherà quella degli armamenti prendendone il 
posto per fatturato globale. 

USA e Giappone, come sappiamo, controllano il settore 
nel mondo, spinti dalla rivoluzione microelettronica e 
all’Europa, spesso divisa, non resta che cercare 
alleanze con le multinazionali di questi paesi per non 
essere emarginata. Alcune scelte di fondo il nostro 
paese le ha compiute. Nel 1982 il CIPE ha approvato il 
piano decennale per le telecomunicazioni, poi rivisto, 
sotto la spinta dell’evoluzione tecnologica, con il Piano 
per le Telecomunicazioni 1985-1994 presentato dal 
Ministro Gava. Dal piano emerge lo sforzo fatto per 
recuperare il tempo perduto, il tentativo di saldare 
strategie e programmazione ma, dicono i tecnici, senza 
quel grande respiro che potrebbe esserci in quel 
disegno complessivo che è il piano finalizzato per la 
politica industriale, al quale sta lavorando il Ministro 
dell’Industria. Ma il problema è, a nostro avviso non 
solo economico, strategico e di velocità decisionale; è 
anche un problema culturale. Se non si hanno utenti in 
grado di usare macchine e sistemi difficilmente si 
avranno dei mercati. Una notizia delle scorse settimane 
induce alla speranza. Nell’87-88 l’informatica entrerà 
nelle scuole elementari della Repubblica con, si è 
detto, strumenti adatti all’età degli scolari. Tra questi, 
probabilmente il linguaggio di programmazione Logo, 
messo a punto al MIT di Boston e che LIST sta già 
insegnando ai suoi giovani lettori. 
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STOP 





Il gran numero dei 
programmi (alcuni 
chilometrici!) partecipanti al 
concorso STRIKE, ci ha 
costretti, per ovvi motivi di 
spazio, a posticipare la 
pubblicazione di listati per il 
COMMODORE 16. 
Esaudiremo così nei 
prossimi numeri la richiesta 
di Cristiano Ramponi 
(Casumaro-FE), Gaia 
(Milano), Cristina Bigaran 
(Alessandria), Stefano 
Bellotti (Bologna), Renato 
Capacci (Latina) e numerosi 
altri lettori. 


Ringraziamo per i numerosi 
consensi ricevuti a favore di LIST: 
vuol dire che la strada intrapresa 
è quella giusta. 

Non dimentichiamo però che ciò è 
stato possibile anche grazie alle 
richieste, ai consigli, alle critiche 
ed alla collaborazione di VOI 
lettori che ci seguite e siete 
sempre più. 

Aumentano anche le lettere 
ricevute giornalmente. Non ci è 
possibile, purtroppo, rispondere a 
tutti, ma crediamo che troviate 
comunque nelle pagine di LIST le 
risposte ai vostri quesiti. 

La redazione 


BREAK. 


Possiedo uno Spectrum e, anche 
se con non pochi sforzi, sto 
imparando «l’arte» della 
programmazione. 

So’ che non è possibile fermare 
un programma in linguaggio 
macchina mediante il tasto 
BREAK e vorrei sapere se è 
possibile «disattivare» tale tasto 
quando il computer sta 
elaborando un programma in 
BASIC. 

Roberto Dal Vecchio 
(Caserta) 


Sfortunatamente non è possibile 
neutralizzare il tasto BREAK sullo 
Spectrum. 

Ad ogni modo se ciò ti interessava 
per poter in qualche modo 
salvaguardare i tuoi programmi, 
protresti, ad esempio, aggiungere a 
questi delle linee che non possono 
essere rimosse dove poter inserire il 
copyright con il tuo nome. 

Volendo fare apparire il tuo nome 
alla linea 0, che nessuno potrà 
rimuovere, le prime due linee del 
programma dovranno essere le 
seguenti: 

1 LET A=PEEK 

23637+256*PEEK23638: POKEA, 
0:POKE A+1,0:STOP 

2 REM (Roberto Dal Vecchio) 

Dato il RUN e chiesta poi la LIST 
vedrai che al posto della linea 2 vi 
sarà la linea 0. 

A questo punto tutto quello che 
dovrai fare è eliminare la linea 1 : il 
tuo nome rimarrà «racchiuso» nel 
listato .... per sempre. 



Sono il papà di due ragazzi di 12 e 
14 anni. Pressato dalle incessanti 
richieste ho regalato loro un 
computer e precisamente un 
Commodore 64. 

Ho così acquistato diverse riviste di 
informatica, ma la Vostra è risultata 
quella che più li soddisfa: un giusto 
equilibrio tra programmi, rubriche e 
notizie. 

Ora, contagiato dai miei ragazzi, 
sono diventato anch’io un vostro 
lettore. Trovo infatti l’esposizione 
degli argomenti trattati chiara e 


semplice anche per chi, come me 
non appartenente alla nuova 
generazione, vede quello 
dell’informatica come un qualcosa di 
misterioso e un po’ estraneo. 

Un elogio particolare dunque alla 
rubrica «SCUOLA E COMPUTER», 
che seguo con interesse e giudico 
ottima. 

Carlo Campiglia 
(Torino) 


Scrivo in riferimento ad un 
programma pubblicato qualche 
tempo fa: «OUTLINE» per il VIC 
20 . 

Possedendo un CBM 64 ho 
provato, senza purtroppo riuscirci, 
ad adattarlo al mio computer; 
anche con alcune modifiche, il 
suddetto programma si ostinava a 
non «girare». 

Evidentemente l’indirizzo di inizio 
della mappa dei caratteri nel CBM 
64 non è uguale a quello del VIC 
20 . 

Potete suggerirmi cosa devo 
modificare? 

Volendo inseire una serie di 
«nuovi caratteri» all’interno di un 
programma come si può fare per 
richiamarli quando occorrono e 
viceversa non utilizzarli quando 
servono soltanto quelli da 
tastiera? 

Paolo Zaccagnino 

(Roma) # 

Il problema posto è stato risolto 
dopo una consultazione della mappa 
di memoria del CBM 64. 

Effettivamente la procedura da 
seguire è leggermente diversa da 
quella del VIC 20. 

Diversi sono i valori da immettere 
nelle locazioni 55 e 56 per 
modificare il TOP di memoria RAM, 
diverso è anche il puntatore di 
lettura dei caratteri locato a 53272 
che contiene un valore (21), tale da 
iniziare la lettura dei caratteri ROM 
alla locazione 53248. 

Nel caso si volesse usufruire di due £ 
sets di caratteri, di cui uno ridefinito, 
basterà cambiare opportunamente il 
valore contenuto nella locazione 
53272. 

Per maggiore chiarezza consigliamo 
di consultare il manuale di istruzioni 
del computer. w 
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Per curiosità ho comprato il numero 
di Gennaio 1985. Dopo aver letto 
l’articolo di pagina 49 «SHARP MZ 
700» ho sentito il bisogno di 
complimentarmi con Voi. 

Vi assicuro che comprerò ancora la 
rivista... ma non più per caso. Spero 
di trovare ancora tra le vostre pagine 
articoli come il succitato. 

Attilio Di Vita 



Ho 15 anni e da poco più di uno 
posseggo lo Spectrum 48K. 

Sono stato sempre affascinato dalla 
possibilità di poter ottenere con il 
linguaggio macchina cose 
impensabili con il BASIC, ma 
trovando l’argomento sempre 
affrontato in maniera troppo difficile, 
avevo deciso di rinunciare. 

Questo fino a poco tempo fa, 
quando leggendo la vostra rivista, 
che seguo da tempo, ho trovato ciò 
che mi interessava e soprattutto 
scritto nel modo che desideravo. 

Se le intenzioni da Voi manifestate 
saranno mantenute penso sarete di 
grandissimo aiuto ai tanti che, nelle 
mie condizioni, intendono fare 
questo passo nella programmazione. 

Giacomo Campana 
(Napoli) 



Sono un VIC-HINGO con i capelli 
abbondantemente bianchi 
appassionato di computers. 

Per una reminescenza scolastica 
mi interessa in particolare modo 
la trigonometria e quindi in 
generale i «sistemi di 
riferimento». 

Nella rubrica «Scuola e 
Computer» pubblicata sul n. 5 di 
sett./ott. si accenna all’argomento 
ma soltanto a proposito del 


CBM64 con SIMON’S BASIC. 

10 possiedo invece un VIC 20 con 
espasione grafica commutabile 
3-8-16K. 

Come devo fare nel mio caso a 
centrare gli assi del sistema di 
riferimento? Come posso 
procedere per ottenere dei grafici 
su stampante? 

Paimiro Monti 
(Bologna) 

11 problema è risolvibile: basta tenere 
conto delle diverse dimensioni dello 
schermo grafico del VIC 20 con 
SUPER EXPANDER e del CBM 64 
con SIMON’S BASIC. 

Nel primo caso si ha una finestra di 
176x184 punti con un sistema di 
assi cartesiani che provvede a 
dimensionare automaticamente X e 
Y con valori compresi tra 0 e 1023. 
Nel caso del CBM 64 lo schermo 
grafico è composto invece da una 
finestra di 320x200 punti e non ha il 
sistema di assi cartesiani con 
rautodimensionamento. 

Osservando infatti attentamente il 
listato pubblicato a pag. 7 sul n. 5 di 
LIST, si può osservare come i valori 
200 e 320 facciano la loro comparsa 
in molte linee del programma. 

Ecco quindi di seguito le istruzioni 
da inserire per adattare il 
programma al suo computer: 

Queste semplici modifiche 
dovrebbero consentire al programma 
di girare senza alcun problema. 
Riguardo la stampa dei grafici il 
SIMON’S BASIC offre due possibilità 
di copia: schermo grafico e modo 
testo. 

Per quello che ci risulta la SUPER 
EXPANDER non offre possibilità di 
questo tipo, perciò è necessario 
creare una routine che resetti la 
stampante nel modo grafico e poi 
trasformi il contenuto dello schermo 
(locazioni di memoria 7680-8185 
senza espansione da 8-16K) in una 
stringa da mandare poi nel buffer 
della stampante. 


256 SX=TM/175 
360 GRhPHIC 2 

385 DftflW 2,0,184-V0 T0 176,184-V0 
306 DRlil'J 2, K0,0 10 X0, 183 
330 POR X=0 IO 175 

335 V= 183 - < SV-PFl ( I > #8 1N ( SX# < -K < I > } 4X-X0 } +F < I > +V8 ) 

336 IFVC0 0RV >183 THEN 350 
340 POINT1,X,V 


Ho acquistato per mia figlia un 
VIC 20 con registratore (C2N) e, 
non avendo alcuna cognizione in 
materia, gradirei alcune risposte 
in merito al loro uso e alla loro 
«manutenzione». 

Per esempio ho notato che 
l’alimentatore si «scalda» in 
pochissimo tempo: potrebbe 
questo surriscaldamento 
provocare dei danni al VIC? 
Caricato un programma, tenere il 
tasto PLAY del registratore 
premuto può causare danni allo 
stesso? 

Sempre a proposito del 
registratore, ho spesso dei 
problemi nel caricare programmi 
in commercio: che fare per evitare 
di correre il rischio di acquistare 
del software che potrebbe non 
essere caricato? 

Giovanni Marchetta 
Napoli 


Che l’alimentatore si scaldi è 
normale, signor Giovanni, ma se 
dovesse farlo al punto da non poter 
essere toccato allora potrebbe 
effettivamente avere qualcosa che 
non va. Nel caso è consigliabile 
rivolgersi ad un Centro Assistenza 
per una verifica. Comunque è 
sempre bene assicurarsi che 
l’alimentatore non rimanga inserito 
quando il computer non viene usato. 
Il tasto PLAY del C2N può 
tranquillamente essere lasciato 
premuto in quanto è il computer 
stesso a «controllarlo»; anche in 
questo caso è bene però che il 
registratore sia a «riposo» quando il 
VIC non è utilizzato. 

Per quel che riguarda il carimento 
delle cassette in commercio La 
rimandiamo alle risposte fornite, 
sempre in questa rubrica, ad una 
lettrice sul n. 1/85. 



Seguo la vostra rivista dal primo 
numero e non mi ha mai deluso. 

... ma ora la nuova serie 1985 è 
veramente una bomba!!! GRAZIE. 

Alfredo Giannini 
(Roma) 


14 























La National Science Foundation 
americana ha deciso di finanziare 
con più di 400 miliardi di lire, quattro 
Università statunitensi che si 
occupano della cosiddetta «computer 
Science». Le Università sono quelle 
della California, delNIIinois, la 
Cornell di Ithaca nello Stato di New 
York e la Princeton University nel 
New Jersey. La decisione è stata 
presa per la necessità, più volte 
manifestata dal mondo accademico 
statunitense, di avere a disposizione 
calcolatori più potenti di quelli in uso 
nelle università americane — 
comunque di grande potenza — per 
risolvere problemi legati alla fisica 
delle particelle, all’ingegneria 
genetica, alle scienze spaziali e in 
altri settori delle attività umane. Per 
alcuni di questi problemi occorrono 
ancor oggi anni di lavoro; con le 


nuove supermacchine gli studiosi 
delle università americane sperano 
di impiegare ore o addirittura minuti. 
Computers superiori a quelli esistenti 
nelle università americane sono oggi 
disponibili, negli Stati Uniti, solo in 
certi laboratori industriali e al 
Dipartimento della Difesa. Costano, 
ognuno, circa venti miliardi di lire. La 
decisione degli americani, dicono 
alcuni osservatori, può anche essere 
considerata la risposta americana al 
progetto di supercomputer — quello 
della quinta generazione. 



I Vigili Urbani fiorentini sono i primi 
in Italia a contestare contravvenzioni 
con un minicomputer. L’apparecchio, 
che si chiama «Thema 102» stampa 
uno scontrino sul tipo di quelli 
rilasciati nei negozi, con il numero di 
targa della vettura che ha commesso 
l’infrazione, il tipo di vettura, il nome 
della strada dove l’infrazione è 
avvenuta e l’invito al pagamento. Al 
rientro in ufficio, il Vigile Urbano 
fiorentino «vuota» il suo mini 
computer nel cervellone del Comune 
di Firenze attraverso una linea 
telefonica. Il Centro elaborazione 
dati del capoluogo toscano, poi, 
provvederà a stampare i verbali e 
inviare la comunicazione al cittadino 
che ha commesso l’infrazione. Il 
«Thema 102» è stato realizzato da 
una azienda milanese. I Vigili Urbani 
di Firenze hanno già in dotazione 
una trentina di minicomputers e in 
città è avvenuta una vera e propria 
gara tra gli automobilisti per essere 
multati per primi e avere così lo 
scontrino numero uno. 



L’estate prossima la Texas 
Instruments comincerà a produrre, 
nello stabilimento di .Rieti, controllori 
programmabili per robots industriali. 
Nello stesso stabilimento la Texas 
produce già personal computers 
destinati al mercato europeo. La 
Texas intende rifornire con la 
produzione degli impianti italiani, un 
mercato in continua espansione, 
circa il 20% l’anno, e che, nel 1984 
ha fatturato 1,3 miliardi di dollari nel 
mercato mondiale, pari a 2.600 
miliardi di lire, di cui, circa mille in 


! Europa. 

Gli impianti che usano questi sistemi 
programmabili sono soprattutto quelli 
dell’industria automobilistica, di 
imballaggio e imbottigliamento, quelli 
chimici e metallurgici. 


Lo NASA, l’Istituto Internazionale per 
l’applicazione dei sistemi di analisi, 
che si trova a Laxemburg, non 
lontano da Vienna, è la prima 
istituzione occidentale ad avere 
ottenuto il permesso di collegarsi 
con una banca dati dell’Unione 
Sovietica. Lo NASA, di cui fanno 
parte diciassette paesi tra i quali 
l’Italia, ha ottenuto la possibilità 
d’accesso alla banca dati dell’Istituto 
di Informazione Scientifica di 
Scienze Sociali dell’Accademia delle 
Scienze dell’URSS. Questo sistema, 
collegato con tutti i paesi dell’Est 
europeo, tratta informazioni di 
carattere politico, sociale ed 
economico. 



Il rapporto tra il computer e la scuola 
è il tema del convegno organizzato 
dal 18 al 20 aprile a Parma dalla 
rivista «Compuscuola». Nel corso del 
convegno verrà fatto il punto 
sull’informatica nella scuola italiana, 
alla luce, anche, della decisione 
presa di recente di introdurre 
l’informatica nelle scuole elementari 
della Repubblica. Sarà discusso 
anche un documento sulla 
esperienza francese nel settore e si 
parlerà della possibilità di usare il 
computer per esercitazioni senza il 
docente. 



Il vertiginoso aumento dei «crimes 
computers», i reati compiuti con 
l’ausilio degli elaboratori hanno 
indotto una rivista specializzata ed 
una società assicuratrice ad 
organizzare un convegno su questo 
tema. Durante i lavori del convegno, 
che si svolgerà a Roma il 30 aprile, 
verranno presentate le nuove 
strategie di difesa fisica, elettronica e 
assicurativa che una istituzione 
finanziaria può attuare per 
raggiungere un sufficiente livello di 
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9 protezione contro la criminalità 
tecnologica. 



Gabriele Antonacci, studente di 
ingegneria a Pisa e Lorenzo Parrini, 
studente al Politecnico di Milano, 
hanno vinto la selezione italiana del 
concorso «futurist competition» 
organizzato dalla Honeywell tra gli 
studenti delle università europee. Gli 
studenti di tutta Europa hanno 
partecipato al concorso con la 
stesura di saggi sugli sviluppi 
prevedibili di alcune aree 
tecnologiche quali l’informatica, 
l’energia, lo spazio, i trasporti, ecc. I 
due studenti italiani hanno vinto un 
premio di circa due milioni. 



Nella prima metà di marzo è stata 
inaugurata a Bologna la rete 
informatica «INFNET» realizzata 
dall’Istituto Nazionale di Fisica 
Nucleare (INFN). La rete, che è già 
in funzione, collega 21 città italiane 
dove esistono istituti di ricerca e 
università ed è allacciata ad altre reti 
europee. La rete ha una struttura 
basata su calcolatori di media 
potenza nelle sezioni e nei laboratori 
e su elaboratori di potenza maggiore 
installati nei consorzi universitari 
italiani. L’INFNET sarà allargata al 
più presto: entreranno a farne parte 
l'Università di Tor Vergata a Roma e 
i centri di Parma, Trento, Salerno e 
Cagliari. In futuro la rete si allaccerà, 
molto probabilmente, al Centro 
Europeo di Ricerche Nucleari, al 
CERN di Ginevra e con il «Fermilab» 
uno dei laboratori più famosi del 
mondo, che si trova negli Stati Uniti. 



Il 5,5% delle famiglie italiane 
possiede un computer che usa per 
la casa e per lo svago. In alcune di 
queste famiglie i computers sono più 
d’uno. Nel corso del 1984 le vendite 
sono cresciute costantemente 
raggiungendo complessivamente i 
900 mila pezzi contro i 230 mila del 
1983. Sempre nel 1984 il mercato 
ha assorbito 105 mila personal 


computers mentre gli altri personal 
(compatti o trasportabili) sono 
passati dai 43 mila del 1983 ai 90 
mila del 1984. Le marche più 
vendute sono la Commodore, la 
Olivetti, la Sinclair e la IBM. Nel 
corso dell’84 ben sei dei 15 
assemblatori italiani attivi nel 1983 
sono stati spinti fuori dal mercato 
dalle grandi marche mentre i rimasti 
si accontentano di una fetta molto 
marginale. Lo ha reso noto una 
recente ricerca di mercato. 


Negli Stati Uniti sta per essere 
messo in commercio il 
computer-balia per anziani soli. 
L’elaboratore è capace di prestare 
assistenza alle persone anziane che 
vivono sole e può essere adattato 
alle necessità delle singole persone. 
Il computer-assistente ricorda, con 
un segnale, che è l’ora di prendere 
una medicina, può accendere la 
luce, la radio, la televisione. Se la 
persona assistita non compie le 
azioni previste e abituali il computer 
fa scattare l’allarme telefonico che è 
in casa dei parenti o in centri medici. 
Questo straordinario sistema sarà 
sul mercato tra qualche mese e sarà 
affittato ad un costo veramente 
modesto: un dollaro al giorno, poco 
più di duemila delle nostre lire. 


Software 

Raid Over Moscow e Nato 
Commander sono gli ultimi nati in 
casa della U.S. Gode. 

Il primo è un gioco di azione 
multischermo (sette, per la 
precisione) di ottima fattura. 

Si passa dalla visione della terra da 
un satellite, al volo verso il «cuore» 
di Mosca. 

Nato Commander è invece un 
classico «war game»: l’azione, in 
tempo reale, si svolge rulla vecchia 
Europa (II). Fortunatamente è 
possibile congelare 
momentaneamente il gioco per 
studiare la strategia da seguire. 
Entrambi i programmi sono al 
momento disponibili per il CBM 64 e 
la gamma di computers ATARI, 
mentre una versione del primo è 
stata annunciata per lo 
Zx-SPECTRUM. 


Ghostbusters 

Dal film al gioco il passo è breve! 
Arrivata l’attesissima versione 
«micro» dell’acclamato e divertente 
film americano. 

A detta del papà David Crane, già 
«genitore» dei vari Pittali e 
Decathlon, il gioco segue fedelmente 
la trama del film. 

È disponibile «in prima visione» per 
CBM 64 e ZX-SPECTRUM. 



Spinaci Soft 

POPEYE, MINDER e HAGAR thè 
ORRIBLE sono i titoli di tre nuovi 
programmi annunciati dalla 
DK’TRONIKS per i prossimi mesi, 
ispirati alle avventure di Braccio di 
Ferro and Co. 

Il contratto esclusivo per la 
riproduzione «software» dei notissimi 
«cartoons» è stato stipulato con il 
Features Syndicate of America dopo 
ben 5 mesi di trattative. 



Machiavelli Software 

Il trofeo Cambridge Award 1984 è 
stato assegnato a John Sheny, 
autore del programma di avventura 
THE PRINCE (Il Principe). 

§ Il titolo è tratto dal famoso libro di 
Machiavelli in quanto, ha spiegato 
Sheny, è necessario avere una 
mente «machiavellica» per riuscire 
nel gioco. 

Particolarità e novità di THE 
PRINCE rispetto agli altri 
adventure-games è la possibilità 
data a 4 giocatori di misurarsi 
contemporaneamente. 



Novità Mastertronic 

Saranno presto disponibili anche in 
Italia i computer-games 
MASTERTRONIC per i sistemi MSX. 
«Chiller», «Magic Carpet», «Formula 
1 » e «Finders Keepers». I 
Mastertronic che hanno riscosso un 
particolare successo nella versione 
Commodore 64 sono disponibili 
anche per il Sinclair-Spectrum. 




16 





























PARTE QUARTA 




A cura di Paolo Ciancarini 


L’hardware degli 


home-computer 


Periferiche di OUTPUT 


La varietà di funzioni dei dispositivi di output 
(parola che significa emissione) è un po’ 
inferiore a quella dei dispositivi di input. 

Anche per l’output vale quanto accennato per 
l’input: il software necessario per sfruttare 
appieno tutte le possibilità offerte da un dato 
tipo di dispositivo cambia di caso in caso. Per 
esempio, un programma per l’elaborazione di 
testi può sfruttare molto bene le caratteristiche 
di una stampante a margherita. 

Morale: i programmi da usare vanno scelti 
anche in rapporto all’hardware che si ha a 
disposizione. 


Il video 

Una delle ragioni che contribuiscono a tenere 
:asso il prezzo degli attuali piccoli sistemi è 
come unità video, si può usare un comune 
‘revisore, a colori o no. In questo caso il 
scolatore emette un segnale televisivo di 



bassa potenza che viene captato tramite 
l’antenna del televisore. 
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La qualità dell’immagine è decisamente più che 
accettabile, ma si può migliorare se si usa un 
monitor. Questo è un semplice teleschermo 
non predisposto per la ricezione di segnali 
televisivi, ma con più alta risoluzione 
d’immagine. 

La scelta fondamentale da fare in ambito 
scolastico è tra video monocromatico 
(televisore bianco e nero, oppure monitor a 
fosfori verdi) di basso costo, e video a colori. 

A questo proposito io credo che, nella scuola 
forse più che in ogni altro campo, la visione a 
coliri dell’output è fondamentale per poter 
usare bene tutte le potenzialità dei piccoli 
sistemi di cui stiamo parlando. Come vedremo 
quando parleremo di software, il colore 
aggiunge ai programmi una dimensione cui non 
si può rinunciare in moltissimi casi. 


La stampante 

L’output su video è il più immediato e pratico. 
Esistono però situazioni in cui è necessario 
avere una registrazione su carta di un dato 
lavoro fatto: per esempio un programma che 
non funziona si analizza meglio a tavolino. 

Le stampanti per home-computer si dividono in 
due grosse categorie: 



— a matrice d’aghi : i caratteri sono «costruiti» 
dalle disposizioni particolari che assume una 
matrice di aghetti; la matrice è programmabile 
(per poter ottenere nuovi caratteri). 

Sono dispositivi spesso molto veloci (da 50 a 
200 caratteri per secondo), e relativamente 
poco costosi. I caratteri sono però di cattiva 
qualità tipografica. In compenso alcune 
possono stampare disegni (stampanti grafiche). 

— a margherita : i caratteri sono ricavati da 
una pallina (detta margherita) che li contiene 
tutti, e che ruota su un supporto meccanico; se 
si vogliono altri caratteri occorre cambiare 
margherita. 

Sono in genere costose e lente (30-50 caratteri 
per secondo), ma i caratteri stampati sono 
splendidi, di alta qualità. 

Esiste poi un’altra distinzione basata sul tipo di 
carta che si può usare: le stampanti a trattore 
accettano solo moduli continui (la famosa carta 
con i buchi, per intenderci), mentre quelle a 
frizione possono scrivere anche su singoli 
fogli, esattamente come una macchina per 
scrivere. 


IO CLS : PRINT AT 11,5; FLASH # 

1;"FERMA IL REGISTRATORE": PAUSE 
200 

15 CLS : GO SUB 9000 # 

20 PRINT AT 15,0;"Vuoi vadere 
le istruzioni ?": PAUSE 0 

30 IF CHR* PEEK 23556="N" THEN $ 

GO TO 50 

40 IF CHR$ PEEK 23556="S" THEN 

GO TO 100 # 

45 IF CHR* PEEK 23556<>"N" OR 
CHR* PEEK 23556< >"S" THEN GO TO 

20 # 

50 PRINT AT 17,0;"Vuoi accorda 
re la chitarra ?": PAUSE 0 

60 IF CHR* PEEK 23556="N" THEN # 

GO TO 500 

70 IF CHR$ PEEK 23556="S" THEN 

GO TO 300 # 

75 IF CHR* PEEK 23556<>"N" OR 
CHR* PEEK 235560"S" THEN GO TO 

50 # 

100 REM presentazione 

105 BORDER 6: PAPER 6: CLS : GO 

SUB 9000 # 

110 PRINT INK 1;AT 12,0;"N.B. 


È abbastanza difficile orientare la scelta tra il 
tipo a matrice e quello a margherita. 
Prescindendo dalle considerazioni di prezzo, 
ovviamente fortemente a favore delle stampanti 
a matrice (costano la metà), direi che le 
stampanti a margherita sono quasi necessarie 
se l’attività prevalente è la produzione di testi 
da diffondere (lettere, relazioni, tesi, ecc.), 
perché la qualità della carta in questo caso è 
assai importante. 

In tutti gli altri casi te stampanti a matrice sono 
decisamente all'altezza di qualsiasi situazione, 
grazie alia foro grande versatilità. 
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Il plotter 

Il miglior dispositivo per ottenere su carta 
disegni a colori di buona qualità è il plotter. 

Non è l’unico perché cominciano ad uscire sul 
mercato stampanti a matrice a colori. Il loro 
prezzo è però attualmente abbastanza elevato. 
È interessante notare che i plotter in 
commercio provengono probabilmente tutti 
dalla stessa fonte (giapponese), tanto sono 
simili: disegnano su carta di larghezza 
contenuta (non più di 10-12 cm) mediante 
quattro penne di colori diversi (generalmente 
nero, rosso blu e verde). 



La qualità delle prestazioni è molto buona, 
visto il prezzo: assai meno di mezzo milione di 
lire. I plotter professionali, di prestazioni certo 
assai superiori, costano più di dieci volte tanto. 


Il sintetizzatore vocale 

Assai poco diffuso, è noto in Italia a chi ha 
.isto il film «Wargames». È un dispositivo che 
traduce in fonemi i caratteri stampati su video, 
dando così l’impressione che il computer 

- parli». 

Se pensate che sia un dispositivo tutto 
sommato non molto utile, non avete tutti i torti, 
'.'a non dimenticate che in un futuro non 
ontano il principale mezzo di input/output sarà 
iroprio la voce: uno dei temi di ricerca più 
attuali ed affascinanti è proprio il 


riconoscimento vocale. Pensate quanto 
sarebbe comodo poter comunicare a voce col 
nostro computer! Un sintetizzatore vocale 
risolve metà del problema: purtroppo è la metà 
più semplice da risolvere e soprattutto meno 
utile! 


Le interfacce 

L’hardware di un sistema home-computer è 
composto da componenti e da connessioni, 
dette anche porte di input/output, che li 
mettono in comunicazione. Notare che qui 
stiamo parlando di connessione logica, non 
fisica (non pensate a spine e fili, ma 
semplicemente a modi di comunicazione). I tipi 
di connessione sono due: 

— seriale: passa un bit alla volta; 

— parallela: passano più bit 
contemporaneamente (in genere 8: un byte). 

Molti home computer mettono a disposizione 
oltre alle connessioni normali (verso il 
registratore, il disk-drive o la stampante), altre 
due porte, dette interfacce standard, perché 
permettono di collegarsi ad altri sistemi di 
elaborazione: la porta RS232C e la porta 
IEEE488. Una interfaccia standard è in pratica 
costituita da un insieme di fili che hanno 
ciascuno una funzione ben definita. In questo 
modo anche computer di marche diverse 
possono scambiarsi dati, o direttamente o via 
telefono, mediante un modem. 


Il modem 

Il meno conosciuto di tutti i dispositivi, ed il più 
utile in assoluto! 

Propriamente, un modem è un dispositivo di 
input/output, che permette sia l’immissione che 
l’emissione di dati dal vostro elaboratore. 

Un modem è un’interfaccia che permette di 
trasformare il vostro elaboratore in un terminale 
in rete con altri elaboratori, o tramite 
collegamento speciale, o per via telefonica, 
oppure via radio. 

La scarsa diffusione di questo dispositivo nel 
nostro paese è dovuta non tanto al suo prezzo, 
non alto (300-500.000 lire), quanto alla scarsità 
di banche di dati cui collegarsi tramite rete 
telefonica. 
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Negli Stati Uniti tali centri abbondano, così 
come si sono moltiplicate le applicazioni. 
Citiamo solo quelle più ovvie: 

— banche di dati: economici, statistici, 
bibliografici, giornalistici, ecc.; 

— posta elettronica; 

— reti di utenti con uguali interessi: esempio, 
per giochi interattivi; 

— corsi superiori e universitari di istruzione 
programmata. 

Ma le applicazini sono infinite: un modem è 
una specie di passaporto verso un mondo tutto 
nuovo: quello della «società telematica» che 
stiamo costruendo in questi anni. 

Non starò certo qui a suggerire i possibili usi in 
campo scolastico di questo dispositivo: anche 
solo la possibilità che dà di collegarsi a grandi 
banche di dati bibliogafiche («biblioteche 
elettroniche») lo rende uno strumento prezioso 
nelle scuole di qualsiasi tipo. 


Il programmatore di EPROM 


personali. È utile copiare su EPROM (Erasabl 
Programmale ROM. ROM programmabili e 
cancellabili) programmi che si usano spesso, 
grazie al risparmio di tempo di caricamento. 
Tra questo software di frequente uso potremm 
citare: estensioni al sistema operativo, monitor 
per linguaggio macchina, programmi di copia, 
programmi per elaborare testi. 

Costa intorno alle 250.000 lire; le EPROM 
vanno invece dalle 10.000 alle 25.000 lire a 
seconda della capacità (dai 2K ai 32Kbyte). 


I robot 

Per concludere, accenniamo alla possibilità 
forse più affascinante di tutte: i robot comanda 
dal computer. 

I lettori avranno notato che LIST è fra le poche 
riviste che pubblicizzano scatole di montaggio 
di robot. L’ultimo nato della serie è un robot 
che, diversamente da tutti i precedenti, si 
programma tramite home-computer (MSX o 
Commodore). 


Anche questo è un dispositivo assai poco noto. 
In breve, permette la fabbricazione di memorie 
di sola lettura (cartucce: vedi lezione 1) 


Spero che non vi sembri strana l’inclusione dei 
robot tra i dispositivi di input/output. Un robot 
infatti diventa in pratica un’estensione mobile 
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del vostro sistema. Potete così gestire un 
sistema di allarme che controlli, per esempio, 
la sicurezza di una casa (contro intrusioni, 
incendi, fughe di gas). 

Conclusioni 

Diversamente dal processore e dalla memoria, 
che fanno parte del sistema sin dall’inizio, la 
maggior parte delle periferiche è un accessorio 
opzinale che occorre acquistare a parte'. 
Ragione per cui gli oggetti che ho descritto 
sono trascurati dal grosso pubblico. 

D’altra parte la loro utilità è reale ed 
indiscutibile in tantissimi casi. Questo vale 
tanto più nella scuola, dove la tastiera è uno 
strumento in fondo limitato rispetto alle 
esigenze: basti pensare ai bambini piccoli, che 
non sanno leggere, oppure ai bambini 
handicappati che controllano male i movimenti. 


Senza contare poi le applicazioni 
grafico-musicali, impensabili senza hardware (e 
relativo software) specifico. 

Con questa lezione concludiamo il discorso 
preliminare sull’hardware utile per le 
applicazioni scolastiche. Abbiamo cercato di 
essere molto generali, per riassumere in poche 
pagine alcune delle possibilità di estensione 
delle funzionalità di un sistema 
home-computer. 

Restiamo comunque a disposizione dei lettori 
che vorranno scriverci per ulteriori chiarimenti, 
magari riservandoci di dare più spazio sulla 
nostra rivista agli argomenti che più 
interessano. 

Dunque: scriveteci! 

A partire dal prossimo numero cominceremo ad 
esaminare il campo forse più interessante e 
certo più difficile da trattare: quello del software 
da usare nella scuola. 
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PARTE QUARTA 


I SPEAK LOGO 

A cura di Paolo Ciancarini 


Le potenzialità del LOGO 

A molti di coloro che ci hanno seguito fin qui 
sembrerà che sinora abbiamo soltanto 
«giocato» con il linguaggio Tartaruga. La 
Tartaruga è divertente, ma che altro si può 
fare, oltre a qualche disegnino? 

Fareste un grosso sbaglio se pensaste che il 
LOGO si esaurisce solo nelle possibilità 
grafiche, per quanto sofisticate. Quello che 
andiamo via via presentando è un linguaggio 
vero, nel senso che possiede potenzialità pari 
a quelle di tutti gli altri linguaggi, come il 
BASIC, o il PASCAL. La Tartaruga serve solo 
per cominciare a programmare in maniera 
spontanea e divertente. 

In realtà si può pensare al linguaggio LOGO 
come ad un universo composto da mondi 
molteplici, tutti da esplorare. Li riassumiamo di 
seguito: 

— il mondo della Tartaruga: quello iniziale 
dei comandi grafici semplici e immediati; 

— il mondo delle procedure: quello in cui si 
estende il linguaggio con programmi 
complessi; questo è il mondo centrale del 
LOGO, e quello più ricco di «idee da 
esplorare»: la ricorsività, le variabili, 
l’editor, ecc.; 

— il mondo dei folletti: quello in cui si 
possono usare «personaggi» mobili per 
inventare storie e persino programmare 
videogiochi; 

— il mondo dei numeri: quello delle 
operazioni aritmetiche e logiche, semplici 
o complesse; 

— il mondo delle forme: quello dello studio 
delle proprietà geometriche delle figure 
disegnate con la Tartaruga; 

— il mondo delle parole e delle liste: quello 
della manipolazione simbolica e dei 
programmi «intelligenti»; 

— il mondo della musica: quello delle 
procedure che producono suoni; 


— il mondo del linguaggio-macchina: 

quello più specializzato, che prelude allo 
studio di «come è fatto dentro» un 
elaboratore elettronico. 

Ciascuno di questi mondi va «colonizzato» 
man mano che si prende confidenza con la 
programmazione. Si comincia col mondo della 
Tartaruga solo perché è il più immediato da 
assimilare e semplice da esplorare. La vera 
potenza del linguaggio la scopriremo quando 
entreremo nei mondi complessi delle parole e 
delle liste. 

In questa puntata vedremo come, anche solo 
limitandosi al mondo della Tartaruga, si 
possono scoprire idee e concetti potenti e 
originali. 

NOTA: è finalmente uscito sul mercato 
italiano, come annunciato, il LOGO ITALIANO 
per Commodore 64. Quasi tutti i comandi 
sono identici a quelli da noi usati fin qui. In 
fondo a questa lezione, comunque, troverete 
una tabella riassuntiva di tutti i comandi usati 
sinora con l’eventuali abbreviazioni 
riconosciute dall’interprete LOGO ITALIANO. 


La geometria della Tartaruga 

Chi non conosce il teorema di Pitagora alzi la 
mano! 

Questa splendida proprietà dei triangoli 
rettangoli costituisce uno dei risultati più 
famosi della cosiddetta Geometria Euclidea, 
dal nome del primo matematico che le dette 
una sistemazione organica nel più famoso 
trattato di geometria di tutti i tempi: Gli 
Elementi di Geometria di Euclide. 

La Geometria Euclidea restò l’unico modo di 
studiare le proprietà delle figure geometriche 
per secoli e secoli. La prima grande 
innovazione la introdusse il filosofo e 
matematico francese Cartesio, quando 
inventò la Geometria Analitica. Con questo 
approccio le proprietà delle figure geometriche 
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sono studiate mediante equazioni, le quali 
possono essere visualizzate graficamente in 
uno «spazio matematico» chiamato piano 
cartesiano. 

Un piano cartesiano è formato da punti 
descritti da coppie di numeri reali: le 
coordinate cartesiane xey relative ad una 
coppia di assi tracciati ortogonalmente nel 
piano. 

Facciamo un esempio. L’equazione 
x 2 + y 2 = 1 

è risolta da infiniti punti che si dispongono su 
una circonferenza di centro (0,0) e raggio 1: 



Cosa c’entra tutto questo col LOGO? 

I comandi come AVANTI, DESTRA possono 
essere studiati non solo come linguaggio per 
programmare un computer, ma anche come 
un modo diverso sia da quello euclideo sia da 
quello cartesiano per descrivere e studiare le 
proprietà delle figure geometriche. 

Proviamo ad esempio a paragonare le 
descrizioni-Tartaruga con quelle cartesiane. 
Innanzitutto introduciamo alcuni nuovi 
comandi del LOGO: i comandi Cartesiani. 

VAX x la Tartaruga si muove 
orizzontalmente fino all’ascissa (coordinata 
orizzontale) x; la tana ha ascissa 0; 

VAY y la Tartaruga si muove 
verticalmente fino all’ordinata (coordinata 
verticale) y; la tana ha ordinata 0; 

VAXY xy la Tartaruga si muove verso il 
aunto che ha coordinate (x,y); la tana è il 
sunto (0,0); 

. ERSO xy è una funzione che ha come 
sgomenti le coordinate (x,y) di un punto dello 
schermo, e risponde con un numero che 
arpresenta l’angolo formato dalla verticale 


della Tartaruga col punto (x,y); 

XCOR è una funzione senza argomenti 
che risponde con un numero decimale che 
rappresenta l’attuale coordinata x della 
Tartaruga; 

YCOR come XCOR; il numero che 
risponde è l’attuale coordinata y della 
Tartaruga. 

Questi comandi trasformano la Tartaruga in 
una «Tartaruga Cartesiana», le cui mosse 
non sono più specificate avendo come punto 
di riferimento la Tartaruga stessa, ma rispetto 
allo schermo, visto come piano cartesiano. 
Vediamo ad esempio come si disegna un 
rettangolo, usando il comando cartesiano 
VAXY: 

PER RETTANGOLO :BASE :ALTEZZA 
VAXY:BASE 0 
VAXY :BASE :ALTEZZA 
VAXY 0 :ALTEZZA 
VAXY 0 0 
FINE 

RETTANGOLO 100 50 



equazioni. E facilissimo ottenerle con la 
Tartaruga (nelle procedure che seguono ci 
sono molti comandi che ancora non 
conoscete: li studieremo la prossima volta): 






















PER TRACC1AFUN :F :X1 :X2 
SE :X1 > :X2 ALLORA STOP 
VAXY :X1 FUN :F (:X1 / IO) :X2 
TRACCIAFUN :F(:X1 + 1):X2 
FINE 

PER FUN :F :X 
ESEGUI FRASE :F :X 
FINE 


TRACCIAFUN "COS (- 6.28) 6.28 



L’invenzione di Cartesio costituisce una delle 
più profonde intuizioni matematiche di tutti i 
tempi, perché mette in relazione l’algebra 
(studio delle equazioni) con la geometria 
(studio delle figure). 

Eppure la Geometria Analitica non è l’unico 
modo di studiare le figure mediante i numeri. 
La Tartaruga in pratica vi offre un altro punto 
di vista da cui studiare la geometria. In fondo 
le procedure-Tartaruga costituiscono una 
rappresentazione alternativa delle figure 
geometriche. Lo studio della Geometria della 
Tartaruga vi farà dunque scoprire altre 
proprietà geometriche, non meno importanti di 
quelle euclidee o cartesiane. 

Una delle differenze più grosse è che la 
Tartaruga costituisce una figura in base alle 
proprietà intrinseche della figura stessa: un 
quadrato è tale perché ha i 4 lati ed i 4 angoli 
uguali, e questo risulta chiaro nella procedura 
QUADRATO: 

PER QUADRATO :LATO 
RIPETI 4 [AVANTI :LATO DESTRA 90] 

FINE 

Questa procedura vale comunque si voglia 
disegnare nello spazio il quadrato: basta 
cambiare la posizione di partenza della 
Tartaruga, senza cambiare la descrizione 
della figura (cioè la procedura). 


DISEGNA DESTRA 45 QUADRATO 



Invece la descrizione cartesiana del Quadrato 
è tale che se volete disegnare la figura in un 
altro punto, e/o con un’altra orientazione, 
occorre cambiare totalmente la procedura. Le 
descrizioni-Tartaruga sono dunque invarianti 
rispetto alla posizione spaziale. 

Un altro fatto interessante si deduce 
confrontando i due modi di disegnare: in 
Geometria Cartesiana è l’osservatore esterno 
che ricostruisce globalmente la figura in base 
all’equazione: e deve essere «esterno» 
perché deve rispettare il riferimento agli assi 
cartesiani. 

Invece chi disegna coi comandi AVANTI, 
DESTRA, ecc., si identifica con la Tartaruga: 
si dice allora che la procedura QUADRATO è 
una descrizione locale, perché costruisce la 
figura un pezzetto per volta, senza far 
riferimento agli assi cartesiani. 

La proprietà di località è importante perché 
rende semplice il passare a studiare la 
geometria dello spazio a 3 (ed anche più!) 
dimensioni. 

Infine, è fondamentale anche che col LOGO 
le figure si studiano mediante procedure e 
non mediante equazioni. L’uso di strumenti 
come la ricorsione o l’iterazione permette la 
creazione di figure complesse col minimo 
sforzo di descrizione: 


PER ARCOD :R :GRADI 
RIPETI :GRADI [A :R D 1] 
FINE 

PER ARCOS :R :GRADI 
RIPETI :GRADI [A :R S 1] 
FINE 

PER CERCHI 

RIPETI 9 [ARCOD 1 360 D 40] 
FINE 

























PER PETALO :L 
RIPETI 2 [ARCOD :L 60 D 120] 
FINE 


PETALO 1 



RIPETI 6 [PETALO :L D 60] 
FINE 

FIORE 1 



sole ■ l 

VlPETI 9 [RIPETI 2 (arcos :l 90 arcod :l 90) d 160] 



NOTA: lo scopo di quest’articolo è di 
mostrare, almeno in parte, alcune delle 
caratteristiche più potenti del linguaggio 
LOGO, per quel che riguarda l’ambito 
scolastico. Dovrebbe risultare chiaro che il 
LOGO potrebbe benissimo costituire un 
linguaggio standard per le scuole di ogni 
ordine e grado, dalla materna alle superiori. 
Perché questo avvenga, però, occorre che il 
LOGO raggiunga la massima diffusione 
possibile. 

Noi di LIST siamo interessati ad entrare in 
contatto con quei docenti e studenti che 
usano il LOGO nelle scuole di qualsiasi tipo. 
Scriveteci! Fateci conoscere le vostre 
esperienze. Noi pubblicheremo i risultati più 
rilevanti. 


Tabella riassuntiva dei termini del LOGO 
italiano usati finora: 


Termine 

Abbrevia¬ 

Termine 

LOGO 

zione 

LOGO 

italiano 

consentita 

inglese 

Grafica: 



ASCOL 


PENCOLOR 

ATTORNO 


WRAP 

AVANTI 

A 

FORWARD 

COLORESFONDO 

CS 

BACKGROUND 

DESTRA 

D 

RIGHT 

DISEGNA 


DRAW 

GIULAPENNA 

GIU 

PENDOWN 

INDIETRO 

1 

BACKWARD 

MOSTARTA 

MT 

SHOWTURTLE 

MURO 


NOWRAP 

NASTARTA 

NT 

HIDETURTLE 

PULISCISCHERMO 

PS 

CLEARSCREEN 

SINISTRA 

S 

LEFT 

SULAPENNA 

SU 

PENUP 

TANA 


HOME 

VAX 


SETX 

VAY 


SETY 

VAXY 


SETXY 

VERSO 



XCOR 


XCOR 

YCOR 


YCOR 

Per definire procedure: 



CANCELLA 


ERASE 

FINE 


END 

PER 


TO 

RIPETI 


REPEAT 

RIPORTA 

RI 

OUTPUT 

Comandi su disco: 



CATALOGO 


CATALOG 

CANCEARC 


ERASEFILE 

CONSERVA 


SAVE 

RECUPERA 


READ 

STP 


POTS 
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LINGUAGGIO MACCHINA 

a cura di Massimo Momo 


SECONDA PARTE 

In questo secondo articolo analizzeremo la 
struttura del microprocessore Z80 e 
l’hardware esterno di cui è necessario 
corredarlo per permettergli di operare 
correttamente. 

Nella Fig. 1 è schematizzato un tipico sistema 
che utilizza lo Z80 come microprocessore; 
esso rappresenta un Computer nella sua 
forma più semplice: la tastiera permette di 
inserire comandi e/o dati, mentre 
un’interfaccia video permette di visualizzare i 
risultati delle elaborazioni. Sono anche 
presenti due blocchi di memoria, uno 
costituito da «cellette» di cui è possibile solo 
leggere il contenuto (ROM=Read Only 
Memory), e l’altro costituito da «cellette», 
nelle quali, oltre a leggere è possibile al 
programmatore anche scrivere 
(RAM=Random Access Memory). 

Nella Fig. 1 sono anche rappresentati i tre 
«BUS» mediante i quali lo Z80 è in grado di 
scambiare dati con il mondo esterno (tastiera, 
memoria, interfaccia video, stampante, floppy 
disk, ecc.). 

Per «BUS» si intende l’insieme di canali 
(immaginate dei fili) comuni a più 
«dispositivi», sui quali vengono trasferite le 
informazioni digitali provenienti da uno 
qualsiasi di essi (che in quel momento 
fungerà da sorgente) e dirette verso un 
altro(che nello stesso momento fungerà da 
destinazione). È importante notare che per 
assicurare il corretto funzionamento di tutto il 
sistema, solo un dispositivo alla volta potrà 
inviare i propri segnali al Bus. 


Il regista, che è in grado di «sincronizzare» 
tutte le operazioni, è il microprocessore, il 
solo a decidere quando «leggere» un dato da 
un dispositivo oppure quando trasmetterlo 
(scrivere) ad un altro. 

Le informazioni, oggetto dello scambio tra 
microprocessore e dispositivi esterni, corrono 
sul «BUS dei DATI» che è formato da otto bit 
(lo Z80 è un microprocessore ad otto bit). 
Ovviamente il microprocessore deve essere 
anche in grado di decidere con quale dei 
dispositivi esterni (tutti collegati fra loro 
attraverso il Bus dei Dati) vuole «dialogare»; £ 
questo scopo, esso ha a disposizione un altro 
bus: il «BUS degli INDIRIZZI». Il criterio è 
semplice: se ogni dispositivo esterno è 
caratterizzato da un «indirizzo», allo Z80 sarà 
sufficiente specificare quello del dispositivo 
con cui vuole «dialogare» e tutti gli altri 
dispositivi saranno disabilitati. 

Il Bus degli Indirizzi è a sedici bit e poiché le 
possibili combinazioni di sedici elementi ugual 
a zero (0 volt) oppure a 1 (+5 volt) sono 
2116=65536, lo Z80 è in grado di comandare 
fino a 65536 dispositivi diversi (dal primo, con 
indirizzo 0, fino all’ultimo, con indirizzo 
65535). 

Spesso si usa parlare in termini di «chilobyte» 
(1 Kbyte=1024 parole da otto bit ciascuna) e 
quindi si dice che lo Z80 può indirizzare 64 K 
di memoria (o altri dispositivi) da otto bit. 

Per esempio, nel caso dello Spectrum, 
l’hadware è stato progettato in modo da 
riservare ai 16 K di ROM (16384 celle da otto 
bit, contenenti il Sistema Operativo della 
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macchina), gli indirizzi che vanno da 0 a 
16383. I rimanenti 48 K (49152 bytes) sono 
occupati interamente (nella versione da 48 K) 
dalla memoria RAM che si estende quindi 
dall’indirizzo 16384 fino all’indirizzo 65535. 

I blocchi «Decodifica degli Indirizzi», 
rappresentati anch’essi nella Fig. 1, hanno 
invece lo scopo di abilitare i diversi dispositivi 
in funzione del numero presente sul Bus degli 
Indirizzi per intenderci, sempre nel caso dello 
Spectrum, quando su tale bus è presente un 
numero compreso tra 0 e 16383, la decodifica 
degli indirizzi della ROM abilita quest’ultima, 
che così può scambiare informazioni con lo 
Z80 attraverso il Bus dei Dati. Tutte le altre 
decodifiche disabilitano gli altri dispositivi e li 
isolano così dal Bus dei Dati, già occupato 
dalla ROM. Analogo comportamento avrà la 
decodifica della RAM quando sul bus degli 
indirizzi sarà presente un numero compreso 
tra 16384 e 65535. 


particolare dato (cioè un numero compreso tra 
0 e 255), in modo da conservarlo e 
riprenderlo quando ne ha necessità (Fig. 2). 

In pratica tutte le operazioni che si svolgono 
tra microprocessore e dispositivi esterni 
coinvolgono uno di questi registri: è possibile 
cioè copiare (scrivere) il contenuto di un 
registro in una cella di memoria RAM (o su 
un’interfaccia video, o una stampante, ecc.) 
oppure si può riversare (leggere) il contenuto 
di una cella di memoria (RAM o ROM, oppure 
una tastiera, o un registratore, ecc.) dentro un 
registro interno dello Z80. 

Più in là vedremo che lo Z80 possiede più 
registri, di cui il più importante è il cosiddetto 
«ACCUMULATORE» (indicato con la lettera 
A). 

Le particolari modalità con cui scambiare i 
dati con i dispositivi esterni sono funzione 
dell’« ISTRUZIONE» che lo Z80 è chiamato a 
compiere in un dato momento: questo non fa 



BUS DEI DATI 


Fig. 1 


^ino qui abbiamo parlato di scambio di dati 
tra Z80 e dispositivi esterni, senza specificare 
bene di che cosa effettivamente si tratti in 
r ealtà; nel dettaglio, diciamo che lo Z80 ha al 
suo interno un insieme di «REGISTRI» in cui 
duo tenere immagazzinate informazioni (dati) 
ad otto bit. Il registro può essere immaginato 
quindi come un «cassetto» in cui lo Z80 
' oone un «biglietto» su cui ha scritto un 


altro che eseguire una serie di istruzioni (una 
dopo l’altra) dal momento in cui si dà 
alimentazione al circuito fino a quando la si 
toglie. 

Dove trova lo Z80 le istruzioni da eseguire e 
come fa, una volta terminata un’istruzione, ad 
eseguire la successiva? 

A questo quesito risponderemo nel prossimo 
articolo, in cui saranno analizzati nel dettaglio 
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tutti i registri presenti nel microprocessore ed 
il loro modo di operare. 

Il programma proposto questa volta 
denominato «CARICAMEMO» (adatto allo 
SPECTRUM) sarà molto utile quando si 
comincerà a lavorare in linguaggio macchina. 

Il programma permette di caricare in memoria 
parole di otto bit (byte) a partire da un 
indirizzo minimo di 27000 (ricordiamo che i 
programmi Basic iniziano sempre da 23755) 
fino ad un massimo di 65367, che corrisponde 
alla cella di memoria che precede gli UDG. 

Il programma, all’inizio, chiede l’indirizzo della 
prima cella di memoria in cui si vuole caricare 
un codice. Successivamente sono previste 
diverse possibilità: 

— Inserendo un numero compreso tra 0 e 
255, esso verrà caricato direttamente nella 
cella di memoria in esame; il dato sarà 
trasmesso solo dopo aver premuto il tasto 
«ENTER» 

— Premendo il tasto «ENTER», si carica il 
dato visualizzato sullo schermo nella cella 
di memoria in esame, e si passa a quella 
successiva 

— Premendo il tasto «-» si può tornare 
indietro alla cella di memoria precedente 
quella in esame. 


disponibile sono traslati in giù di un posto, 
permettendo così l’inserimento di un 
nuovo byte nella cella successiva a quella 
in esame 

— Premendo il tasto «S» è possibile salvare 
su una cassetta magnetica un blocco di 
bytes 

— Premendo il tasto «L» è possibile copiare 
in memoria un blocco di bytes 
precedentemente salvato su cassetta 

— Premendo il tasto «R» è possibile 
riinizializzare il programma 

— Premendo il tasto «F» sarà possibile, una 
volta terminato il lavoro, uscire dal 
programma. 

«CARICAMEMO» è indicato come LISTING 1 
da notare l’uso, per le funzioni di 
cancellazione («C») e di inserimento («I») che 
trattano grossi blocchi di dati, di due routines 
in linguaggio macchina (il tempo impiegato 
dalle analoghe routines in Basic sarebbe state 
veramente eccessivo — maggiore di 15 
minuti). In LISTING 2 sono riportati i 
corrispondenti listati Assembler. 



Premendo il tasto «C» viene cancellato il 
dato presente nella cella in esame e tutti i 
bytes, a partire da taje cella fino alla fine 
della memoria disponibile (con indirizzo 
65367), sono traslati in su di un posto 
Premendo il tasto «I» tutti i bytes contenuti 
in memoria dalla cella successiva a quella 
in esame fino alla fine della memoria 


STRUTTURA PROGRAMMA . 

5- 7 Caricamento in memoria delle due 

routines in L.M. 

8- 10 Stampa intestazione programma eì 

acquisizione indirizzo di partenza 
20 Salvataggio dell’indirizzo 

contenuto nella variabile IND in 
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due celle di memoria, necessario 
in quanto la successiva istruzione 
CLEAR azzera tutte le variabili 
Basic. Ripristino della variabile 
IND e forzatura al modo C 
(caratteri maiuscoli) mediante 
POKE 23658,8 

30- 50 Visualizzazione indirizzo di 

memoria e suo contenuto; attesa 
di un tasto premuto e salto, in 
funzione di quest’ultimo, alle 
diverse parti del programma 
60- 80 Gestione del dato numerico 
compreso tra 0 e 255 
90 Visualizzazione indirizzo corrente 
e suo contenuto 

160- 270 Gestione del tasto «ENTER» che 
passa all’indirizzo successivo 
360- 440 Gestione del tasto «S» per il 

salvataggio su nastro di un blocco 
di dati 

460- 490 Gestione del tasto «L» per il 

caricamento di un blocco di dati 
precedentemente salvato su 
nastro 

560 Gestione del tasto «C» per la 
cancellazione di un byte; da 
notare l’uso della routine in L.M. 
con indirizzo iniziale 26502 
660 Gestione del tasto «I» per 

l’inserimento di un byte; anche qui 
da notare l’uso della routine in 
L.M. con indirizzo 26521 
760 Gestione del tasto «R» per la 
riinzializzazione del programma 
1000-1010 Routine per il salvataggio del 

contenuto della variabile IND nelle 
due celle di memoria 26500 e 
26501 



VARIABILI 

ND = Indirizzo della cella di memoria in 
esame 

RIG = Numero di riga dello schermo in cui 
va visualizzato l’indirizzo e il suo 
contenuto 

B$ = Stringa contenente il codice che si 
vuple memoriz ire nella cella di 
memoria in es; ne 

COD = Codice contem o nella stringa B$ 


IN = Indirizzo iniziale del blocco che si 

vuole salvare su cassetta magnetica 
FIN = Indirizzo finale del blocco che si 

vuole salvare su cassetta magnetica 
LUNG = Lunghezza del blocco di cui sopra 
IPS = Variabile contenente gli otto bit più 
significativi dell’indirizzo specificato 
dalla variabile IND 

IMS = Variabile contenente gli otto bit 
meno significativi dell’indirizzo 
specificato dalla variabile IND 

ROUTINES IN LINGUAGGIO MACCHINA 
Routine per la cancellazione di un byte 


26502 

33 

87 

255 

LD HL, 65367 

26505 

237 

91 

132 

103 LD DE, (26500) 

26509 

55 



SCF 

26510 

237 

82 


SBC HL, DE 

26512 

229 



PUSH HL 

26513 

193 



POP BC 

26514 

42 

132 

103 

LD HL, (26500) 

26517 

35 



INC HL 

26518 

237 

176 


LDIR 

26520 

201 



RET 

Routine per inserimento di un byte 

26521 

33 

87 

255 

LD HL, 65367 

26524 

229 



PUSH HL 

26525 

237 

91 

132 

103 LD DE, (26500) 

26529 

55 



SCF 

26530 

237 

82 


SBC HL, DE 

26532 

229 



PUSH HL 

26533 

193 



POP BC 

26534 

209 



POP DE 

26535 

213 



PUSH DE 

26536 

225 



POP HL 

26537 

43 



DEC HL 

26538 

237 

184 


LDDR 

26540 

201 



RET 


LISTING 2 


5 DATA 33,87,255,237,91,132,1 
03,55,237,82,229,193,42,132,103, 
35,237,176,201 

6 DATA 33,87,255,229,237,91,1 
32,103,55,237,82,229,193,209,213 
,225,43,237,184, 

201 

7 FOR 1=0 T0 38: READ A: POKE 
26502+1,A: NEXT I 

8 CLS : PRINT AT 8,8;"******* 
*******": PRINT TAB 8;"* 

*": PRINT TA 
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B 8; "* CARICAMEMO *" 

9 PRINT TAB 8;"* * 

PRINT TAB 8;"**************" 
IO INPUT "INDIRIZZO INIZIALE:" 

;IND: IF IND<27000 OR IND>65367 
THEN BEEP 0.2,2 
4: GO TO 10 

20 GO SUB 1000: CLEAR IND-1: L 
ET IND=PEEK 26500+256*PEEK 26501 
: LET RIG-O: POK 

xlJoJu ) Q 

• 30 GO SUB 90 
35 LET B$="" 

40 PAUSE 100: LET A^INKEY*: 

• TF Ai--*"" ruriM nn rn ad 
26502+1,A: NEXT I 

8 CLS : PRINT AT 8,8; "******* 
*******": PRINT TAB 8;"* 

PRINT TA 

B 8;"* CARICAMEMO *" 

9 PRINT TAB 8;"* * 

": PRINT TAB 8;"**************" 

• 10 INPUT "INDIRIZZO INIZIALE:" 

;IND: IF IND<27000 OR IND>65367 
THEN BEEP 0.2,2 

• 4: GO TO 10 

20 GO SUB 1000: CLEAR IND-1: L 
ET IND=PEEK 26500+256*PEEK 26501 
: LET RIG-O: POK 
E 23658,8 

30 GO SUB 90 
35 LET B$="" 

40 PAUSE 100: LET A$«INKEY*: 
IF A*="" THEN GO TO 40 

50 GO TO 60+100* (CODE A*=13>+2 
00*(A$-"~")+300*(A$="S")+400*(A$ 
="L")+500*(A$~"C 
" ) +600* ( M -" I " ) +700* ( M -" R " ) +800 
*<A$“"F"> 

60 IF CODE A* >47 AND CODE A$<5 
8 THEN LET B$-B$+A*: GO TO 75 
70 BEEP 0.2,24: GO TO 40 
$ 75 LET CQD=VAL B*t IF C0D>255 

THEN BEEP 0.2,24: GO TO 35 

80 POKE IND,COD: GO SUB 90: GO 

• TO 40 

90 POKE 23692,255: PRINT AT RI 
G,2;IND;AT RIG,10;PEEK IND;" 

• ": RETURN 

160 LET IND-IND+1: LET RIG=RIG+ 
1: IF RIG>21 THEN PRINT : LET R 

• IG-21 

170 GO TO 30 

260 LET IND-IND-1: LET RIG=RIG+ 
1: IF RIG>21 THEN PRINT : LET R 


IG-21 

270 GO TO 30 

360 CLS : PRINT AT 5,2;"NOME D 
L BLOCCO DA SALVARE :" 

370 INPUT A$: IF LEN A*>10 THE 
BEEP 0.2,24: GO TO 370 
380 PRINT AT 7,10;A*: PRINT AT 
11,4;"INDIRIZZO INIZIALE:"; 

390 INPUT IN: IF IN<0 OR IN>65 
35 THEN BEEP 0.2,24: GO TO 390 
400 PRINT IN: PRINT AT 13,4;"I 
DIRIZZO FINALE:"; 

410 INPUT FIN: IF FINCIN OR FI 
>655.35 THEN BEEP 0.2,24: GO TO 
410 

420 PRINT FIN: LET LUNG*=FIN-IN 

1 

430 SAVE M CODE IN,LUNG 
440 CLS : LET RIG-O: GO TO 30 
460 CLS : PRINT AT 8,2;"NOME D 
L BLOCCO DA CARICARE:" 

470 INPUT Mi IF LEN A*>10 THE 
BEEP 0.2,24: GO TÙ 470 
480 PRINT AT 10,10;A*: LOAD A$ 
ODE 

490 CLS : LET RIG-Ói GO TO 30 
560 GO SUB 1000: RANDOMIZE USR 
26502: GO TO 30 

660 GO SUB 1000: RANDOMIZE USR 
26521: GO TO 160 
760 GO TO 10 
860 STOP 

1000 LET IPS=INT (IND/256): LET 
IMS=IND-256*IPS 

1010 POKE 26500,IMS: POKE 26501 
IPS: RETURN 
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SUPER MASTER 
MIND 



SWBMEU 



di Fabio Canta 



Una ventata di novità in un gioco annoverato 
ormai fra i «classici». 

All’inizio viene visualizzata la scritta: «VUOI 
GIOCARE CON IL PUNTEGGIO? (S/N)»; nel 
caso di risposta affermativa (digitando S) si 
inizia con l’indovinare 3 colori su 3 (sono i 
primi tre colori nel riquadro in nero in basso a 
sinistra). 

I tentativi a disposizione sono 13: ogni volta 
che si indovinano colore e posizione vengono 
assegnati 50 Punti; se invece si indovina il 
colore ma non la posizione, vengono 
assegnati 30 Punti. 

°er giocare basta usare i primi tre tasti a 
s nistra della fila in alto, ognuno 
corrispondente ad un colore. 

5 ha la possibilità di correggere il colore 
scelto muovendo la freccetta con i tasti «I» e 
« * » 

Essendo il gioco basato su un temporizzatore 
ì sunteggio varia a seconda del tempo 
r: egato per giungere alla combinazione 

esatta. 


Se si riescono ad indovinare tutti i colori con 
le relative posizioni si passa ad un quadro 
successivo più difficile. 

Per avere invece la combinazione esatta dal 
computer si deve premere la SPACE BAR. 

Se all’inizio del gioco è stato scelto di giocare 
senza punteggio compare la scritta «QUANTI 
COLORI VUOI INDOVINARE?» Premuto il 
tasto corrispondente al numero desiderato (da 
1 a 9) viene quindi domandato «SU 
QUANTI?»; operata la scelta (compresa tra 2 
e 9) inizia il gioco. 


SCHEMA DEI QUADRI 


quadro 

quadro 

quadro 

quadro 

quadro 

quadro 

quadro 

quadro 


1 

= 3 

colori 

su 

3 

2 

= 4 

colori 

su 

3 

3 

= 5 

colori 

su 

3 

4 

= 6 

colori 

su 

3 

5 

= 3 

colori 

su 

5 

6 

= 4 

colori 

su 

5 

7 

= 5 

colori 

su 

5 

8 

= 6 

colori 

su 

5 
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quadro 9 = 3 colori su 7 
quadro 10 = 4 colori su 7 
quadro 11=5 colori su 7 
quadro 12 = 6 colori su 7 


SUPER 


HfìSTER niND 


10 REn 

20 REn 
30 REn 
40 REn 
50 REn 
60 REn 
70 REn 
80 REn - 
90 REn 
100 REn 
H0 reh 
120 REn 
130 REn 
140 REn 
150 REn 
160 REn 
170 REn 
180 REn 
190 REn 
200 REn 

210 SCREEN2,2 :CLS :C0L0R1; 1,C0,03-C255, 
1913,4:T5=10:LINEC30,203-C225,1503,15, 
B:LINEC32,213-C223, 1493,4, BF :H6=10 sH‘^4 
=2 

220 FORR=0TOT5 :Cl=255/T5*R:C2=30+195'T 


Fabio Canta ’84 


U i a Del Romagnoli 35 


00121 OSTIA LIDO 


roda 


8113 Bytes 


5*R:LINECC1,03-CC2,203,15 

230 C1=191/T5*R!C2=20+130/T5*R:LINEC0, 

CI3-C30,C23 >15 

240 C1=255/T5*R:C2=30+195/'T5*R!LINECCI 
,1913-CC2,1503,15 

250 C1=191/T5*R:C2=20+130/T5*R:LINEC25 
5,CI3-C225,C2 3,15 :IFR=5THENREST0RE 
260 READCA:SOUNDl,CO,15:NEXTR:R=0 


270 0ATA123,196,165,131,147,147 
280 FORR2=0TO4:REA0C1,C2,C3,C4,S03:LIN 
ECC1,C23-CC3,C43,15,B:SOUND1,S03,15:NE 
XTR2 

290 DATA27,17,228,153,500,23,14,232,15 
7,800,17,10,237,165,500,9,5,244,176,80 
0,0,0,255,191,500 

300 FORR2=0TO4:READQ1,Q2,Q3,Q4=BLINE C 
Q1,Q23-CQ3,Q43,1,BF:SOUNDl,400+100*R2, 
15 :NEXTR2:BLINEC32,213-C223, 1493,0,BF: 
BEEP 


quadro 13 = 
quadro 14 
quadro 15 = 
quadro 16 = 


310 DATAI 19,80,134,90,114,76,139,94,10 
2,67,152,102,87,57,167,113,62,39,192,1 
31 

320 SCREEN2,2:F0RG4=2T011STEP3:LINEC85 
,333-C170,603,G4,BF:BLINEC90,403-C165, 
533,G4.BF:CURS0R99,43:PRINTCHR*C173 ;”S 
UPER" :BEEP :SOUNDl,110+G4X90,15:CURS0R6 
3,90:PRINT"nASTER niND”:L1NEC50,1003-C 
203,1003,15,B:BLINEC135,1803-C244,1913 
,15,BF 

330 COLORIIìCURSORI35,182:PR1NTCHR$C16 
3 " By Fabio Canta >84":NEXT G4=G0SUB 3 
40.-GOTO350 

340 BLIHEC40,253-C220,1453,1,BF:RETURN 

350 CS=11 :CC = 1:CQ=1:DC=5:C0L0R1,3,C35, 
203-C220,1503:CURS0R55,50:PRINTCHR$C17 
3 J"UUOI GIOCARE”:CURSOR40,70:PRINT”C0L 
PUNTEGGIO ?”sCURSORl10,90=PRINT"SyN"! 
BEEP 

360 O2*=1NKEY4:IFO2*='"'GOTO360 

370 IF02*=”S”THENBEEP :F=3 :DS=3 :GOTO460 

380 IF024O l, N"GOTO 360 
390 BEEP JGOSUB340:SP=808:CURSOR50,40:P 
RINT”QUANTI COLORI” :PRINT:PRINT” UUOI 
INDOUINARE?” :BEEP 

400 F2$=INKEY4:IFF2*=""GOTO 400 
410 F=UALCF2$3:IFF>6ORF=0GOTO400 
420 CURSORI 10,80:PRINTF:BEEP =F0RHJ = 1T0 
60:NEXTHJ 

430 CURSOR70,100:PRINT”SU QUANTI?”:BEE 
P 

440 DS*=INKEY$:DS=UALCDS*3:IFDS*=”"ORD 
S 42GOTO440 

450 CURSORI 10,122:PRINTDS:BEEP:F0RHJ = 1 
TO60 :NEXTHJ 

460 CLS JCOLORI,10,C0.03-C255,1913,12 
470 NR=10IRESTORE470:COLOR 1, 1, CI0, 1253 
— C100,1853 :LINEC0,03-C255,1313,1,B 
480 READNC,CO :IFNC=246G0T0 510 

490 IFNR=50THENNR=1:UB=50 
500 COLORCO :CURSORUB, 130+NR :PRINTNC;'' = 
”;"U” :NR=NR+101SOUND1,300+NRX2, 15:G0T0 
480:REn GRAPH+U 

510 IFSP=808THENPRINTCHR*C163:GOTO570 
520 C0L0R8:CURS0R7,4+J3:PRINTCHR*C163 ! 
"CHHHHHHHHHHHHHB”1CHR4C173:BEEP=REn DI 
SITARE CON GRAPH 

530 COLORI :CURS0R15, 15 :PRINT“000000‘' ;C 
HR*C163:COLOR8:CURSOR10,15:PRINT ”B";S 


3 

4 

5 

6 


colori 
colori 
colori su 


su 9 
su 9 


9 


colori su 9 


: 


j 


PCC123;"C“:REN DIGITARE CON GRAPH CB-C 

540 IFS6=0THENS6=8 :J3=20:GOTO 520 
550 S6=0:J3=0:IFQS=8THENBLINEC96-11*PE 
,153-C88,233,1,BF:CURSOR80-10*PE,15sPR 
INTCHR$C173;OU 

560 COLOR 15 :PRINTCHR4C163 :CURSOR20,35J 
PRINT ”J=50 U=30":CURSOR20,45:COLOR1 
RINT"J=2 U=l”:REn DIGITARE CON GRAPHì 
SHIFT CJ - U3 

570 COLORI:CURSOR10,90:PRINT“TENTATIUG 
N.":PRINT:PRINT"COLORI A” :PRINT"DISPG 
SI2I0NE”JDS 

580 COLORI,CQ,C120,23-C121+F*12 + F*9, 1 
73:?=7:IFSP=808GOTO 620 
590 LINEC115,1803-C250,1893,6,BF 
600 BLINEC117,1823-C247,1873,6,BF 
610 LINEC117,1833-C244,1863,6,BF 
620 IF SP=0THEN COLORI:NQ1=NQ1+1:FOR 
T5=0TO13:LINEC98,103-C115,253,1,B:CURF 
OR98-GR2,15:BLINEC99,153-C114,233,1,BF 
UPRINTNQl:S0UND1,900-40XYT5,15:NEXTTT^ 
:IFNQ1>8THENGR2=3 

630 EL*=STR*CRNDC133:UK#=niD*CEL*,3,Il 
:RK=UALCWK*3:IFRK>DSORRK=0GOTO630 
640 A*=A*+UK*:TN=TN+1:IFTN<FGOTO 630 


650 LINEC122,53-C120+F*12,133,15,BF:GC 
TO 730 1 


660 REn 

670 IFSP=808THENRETURN. . 

680 IFER=FANDNL>9GOTO1990 
690 TR=0 

700 TR=TR+1 :S0UND1,ST,15:BLINEC244-JD 
1833-C244, 1863,0,BF:JD=JO+8 :IFJD>125Tl) 
ENRETURN 

710 IFTR=3TH£NUT=UT+4:C0L0R1:CURSOR134 
UT, 53+nB :PRINT”J " :BEEP :TR=0 UFUT380THE 
NUT=0:nB=8:KG=KG+l :REn GRAPH+SHIFT+J 
720 ST=SY+40:UL=UL-40:SOUND2,UL,10J0O' 
0700 

730 2=2 + 12 :B=0 :A=0 :X=112 =TU=X :ER=0 :DD' 
12+X+F*12:SY=200:UL=1300 
740 IFSP=0THENLINEC117, 1833.-C244, 1863: 
6,BF:JD=0 sQE=2 

750 NL=NL+1:IFNL>13THENBEEP:GOSUB1790- 
GOTO750 

760 BLINEC80,893-C110,1033,CS,BF:COLOR 
1:CURSOR80,90:PRINTNL 
770 BEEP:BEEP:IFX = TU+ C12*F3 THENNA=nA-l 
:GOTO800 
780 X=X+12 
790 COLOR]5:CURSORX,2+8:PRINT"8”:REn E 
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S6PH+8 

E-3'0 SI=SI + 1 sLL$=INKEY$sIFSI>UG6NDGT=8T 
F£‘'3LINEC244-JD, 1833-C244, 1863,0,BFsJD 
=jD+QE:SI = 1 :IFJD>125THENJD = 125 sQE=0 
S:Z IFLL*=""THENUG=5sGOTO800 
Eie IFLL$ = 1 ’ 3 l, ORLL$= 1 ' ,, QRLL* = " :"GOTO840 

B3Z IFU6LCLL$3>DSORU6LCLL$3=0GOTO 800 
E-0 BEEPSBLINEC244-J0,1833-C244,1863,0 
C ,BFsJO=JD+QE : IFJO>125THENJ0=125sQE=0 


E:0 UG=0:IFLL*<>' 


"0NDLL$O"3"THENGT=8 


-izZ IFX=TU+C12*F3THENIFLL$=“ "ORLL*="s 
? *3GTO880 

£70 IFX=TU+C12*F3GOTO890 
: £50 COLORI :CURS0RX,2+8sC0L0RCQsPRINT"8 
’• sREH GR6PH+8 
*£30 IFLL4 = ‘' "THENGOTOl 150 
bZZ IFLL$= I 'J , 'THENIFX=TU + C 12XF3GOTO790 
3 rI0 IFLL#=" :"THENIFX=TUi-12GOTO730 
3 52 0 IFLL*="3"TH£NX=X+12 sCURSORX,2+8 SCO 
LCR15:PRINT"8":|16=n0+l sBH=6H+l:GOTO 80 
’c-zin GR6PH+8 

530 IFLL*="s"THENX=X-12:CURS0RX,H+8sC0 
LI + 15SPRINT"8":H6=no-ls6H=6H-l:GOTO800 
S'EY GR6PH+8 
540 CL=U6LCLL$3 

f 530 SLINEC244-JD,1833-C244,1863,0,BF:J 
T=jD+QE 

;5t0 ONCLGOSUB970,380,330,1000,1010,102 
=0..030, 1040,1050:GOTO 1060 
570 CL=15sRETURN 
1 5 50- CL=3sRETURN 
550 CL=4sRETURN 
*008 CL=6sRETURN 
1*0:0 CL=7 sRETURN 
I eie CL = 3 sRETURN 
•:-3e CL=10:RETURN 
.740 CL=12:RETURN 
.C -;0 CL-13 sRETURN 

050 BLINEC244-JD,1833-C244,1863, 0,BF: 
>.:>JO+QE 

'.7'0 CURSORX,2sCOLQRCL:PRINT“U":Gn8=8: 
; 5 _ GR6PH+U 

*.030 110=116+1 SONNO GOTOl090,1100,1110,1 
Ì28, 1130, 1140 
*050 FB*=LL*-:GOTO770 
r :i00 FC*=LL*:GOTO770 
:..0 FD«=LL*:GOTO770 
\ 110 FE*=LLS =GOTO770 
1.73 FF$=LL$:GOTO770 
,1 : -3 FG*=LL$ :GOTO770 

: := Z B*=FB«+FC*+F04+FE* +FFS+FG*snO=0 :0 
■*=Z: COLOR 15 

1.50 FBS=" "sFDSs = “ " sFD*=" " :FE*=" ” =F 
Fs=’ “:FG*=" " 

1 .73 1=0:L=0sn=0 =N=0 =0=0sp=0 sQ=0:R=0 :S 
1=0 :T=0 sU=0 :U=0 

.180 6=6+1sB=B+l : IFO=F + 1THENO=1:B=1:G0 
Te 1370 

3. .30 Ci=t1ID*C6*, 0, 13 


1200 0*=niDSCB4,B, 13 

1210 IF C*OD*THENGOTO1180 

1220 C0L0R15 :CURSORDD, 2 .■PRINT’’J " :GOSUB 

1530:ER=ER+1sDD=00+9:REI1 GROPH+SHIFT+J 

1230 IFSP=0THENUT=UT+4SCOLORI:CURS0R13 

+UT,53+nB:PRINT"J" :BEEP :IFUT>80THENUT= 

0 :f1B=8 :KG=KG+1 :REH GR6PH+SHIFT+J 

1240 IFER=FTHENU1=20sGOSUBl620SG0SUB17 

90 :GOSUB 670 :1FSP=0GOTO1660 

1250 IFER=FTHEN BEEP2:G0T0 1250 

1260 IFSP=0THENUI=50:GOSUB1620 

1270 ONBGOTO1280,1290,1300,1310,1320,1 

330 

1280 1=6 :GOTOl180 

1290 L=6:GOTOl180 

1300 11=0 :GOTOl180 

1310 N=6sGOTO1180 

1320 O=6=GOTO1180 

1330 P=6:GOT01180 

1340 IFOP>80THENDP=0sUP=8sOL,=OU + l 

1350 0=0+1SIFO<F+1GOTO1380 

1360 6=1:B=B+1 

1370 lFB=10RB=LORB=nORB=NORB=OORB=PT|HE 

NB=B + 1 .'GOTO 1370 

1380 IFB> FTHENGOSUB670: GOTO 730 

1390 1F6=BGOTO1350 

1400 IF6=I 0R6=L 0R6=H 0R6=N 0R6=0 0R6 
=P 0R6=Q 0R6=R 0R6=S 0R6=T 0R6=U 0R6=U 
THENGOTO1350 
1410 C*=NID$C6*,6,13 
1420 0$=[1ID*CB*, B, 13 
1430 IFC*OD*GOTO1350 
1440 C0L0R15:CURSORDD,2 SPRINT" GOSUB 
1570:DD=DD+9 

1450 IFSP=0THENCOLOR1:CURS0R17+DP,70+U 
P SPRINT" ":DP=DP+4:BEEP:UI=30:G0SUB162 
0 

1460 NT=8:ON6GOTO1470,1480,1490,1500,1 
510,1520 

1470 Q=6:6=8:GOTO1340 
1480 R=O:6=8:GOTO1340 
1490 S=6:6=8:GOTO1340 
1500 T=6=6=8:GOTO1340 
1510 U=6:6=8:GOTO1340 
1520 U=6=6=8:GOTO1340 
1530 RU=0 
1540 RU=RU+330 

1550 IFRU>1000THENSOUND0 sRETURN 
1560 SOUND 1,RU,15 sGOTO 1540 
1570 RU=500 
1580 RU=RU+330 

1590 IFRU>1500THENSOUNO0 sRETURN 

1600 SOUNDl.RU, 15:GOTO1580 

1610 D6T6 1,15,2,3,3,4,4,6,5,7,6,9,7,1 

0,8,12,9,13,246,3 

1620 ■IFSP=808THENRETURN 

1630 OU=OU+UI:PE=LENCSTR*COU33*1.05 

1640 BLINEC96-11*PE,14 3-C88,233,1,BF :C 

URS0R85-11*PE, 15:PRINTCHR*C173 ;OLI;CHR* 

C163 


1650 RETURN 

1660 IFKG>1THENUT=84:KG=0 

1670 BLINE C14+UT, 53+HB3-C21+UT, 60+I1B3, 

0,BFsUI=5 

1680 UT=UT-4:IFUT<0GOTO1700 

1690 BEEP:LC=2SGOSUB1860 SGOTO1670 

1700 IFI1B=0GOTO1720 

1710 HB=0 :UT=84=GOTO1670 

1720 IFNT=0GOTO1890 

1730 IF0W>1THENDP=84 

1740 UI=3 

1750 BLINEC14+DP,70+UP3-C21+DP,90+UP3, 

0,BF:DP=OP-4 =IFDP<0GOTO1770 

1760 BEEP=LC=1:GOSUB1860:GOTO1740 

1770 IFUP=0GOTO1830 

1780 WP=0sDP=84 SGOTO1740 

1790 PRINTCHR*C163:BL1NEC120,53-C120+F 

*12,133,1,BF 

1800 LINEC121,3)-C120+F*12,153, 15,B 

1810 T=T+1:CL=U6LtniD* 16$, T, 1 3 3 

1820 ONCLGOSUB970,980,990,1000,1010,10 

20,1030,1040,1050 

1830 IFT>FTHENT=0sS=0sRETURN 

1840 CURSORI24+S,5 :S=S + 12 

1850 COLORCL :'PRINT"U" :BEEP : GOTO 1810 :RE 

n GR6PH+U 

1860 BL1NEC00,903-C100,1303,0,BF=PP=PP 

+LC:IFPP>9THENPH=7 

1870 IFPP>99THENPH=15 

1880 COLORISCURS0R17-PH,93 sPRINTPP:RET 

URN 

1890 JT=JT + l:HE=HE+5:LD=LD+HE:IFJT=11- 
NLTHENG0T01990 

1900 LINEI 123,124-TC3-C119+F*12+F*9,13 
4-TC3,14,BF 

1910 BLINEC35.903-C90,1203,1,BF 

1920 nR=PP*LD SCOLORISCURSOR30,93 SPRINT 

"X =" :IF LD>99THENBR = 10 

1930 CURS0R41-BR,93 spRINTLD 

1940 CURS0R55,93 sPRINTNR 

1950 UI =T1R =BR=5 

1960 BEEP 

1970 BLINEC123,124-TC3-C119+F*12+F*9,1 
34-TC3,14,BF:TC=TC+12 
1980 GOSUB1620:GOTO1890 
1990 CLS:QS=8:UB=0 sGT=0:PP=0 sHE=0 SLD=0 
:BR=0 s TC=0 :UT=0 sOP =0 :|1B=0 :LIP=0 :0*="" :T 
N=0:KG=0 iOU= 0;P2 = P2 + 1:ONP2GOSUB2040,20 
50,2060,2070,2080,2090,2100 
2000 NL=0:JT=0sDC=5SCOLORI,CS, C0.03-C2 
55,1913,HK3:PRINTCHR*C173 
2010 F=F+1:IFF>6THENF = 3 sDS=DS+2 
2020 IFDS>9THENDS=9 
2030 GOTO470 
2040 CS=7 sHK3=4 sRETURN 
2050 CS=9sHK3=2sRETURN 
2060 CS=13 SHI<3=10 sRETURN 
2070 CS=12sHK3=7sRETURN 
2080 CS=14SHK3=13sRETURN 
2090 CS=4 :HK3=2sRETURN 
.2100 CS=10sHK3=4sp?=0sRETURN 
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Con questo programma avrete la possibilità di 
giocare una vera e propria partita di tennis su 
un campo in erba come nel famosissimo 
torneo inglese di Wimbledon. 

Si giocano 5 sets, senza possibilità di 
TIE-BREAK, tra due giocatori rappresentati da 
due racchette: una di colore nero, l’altra di 
colore grigio. 

Il servizio, indicato da una pallina vicino al 
punteggio del giocatore che deve battere, si 
effettua premendo il pulsante «FIRE» del 
joystick. 

Il programma aggiorna automaticamente i 
punteggi, il conto dei giochi e la situazione dei 
sets. 


Il joystick in porta « 1 » comanda il giocatore 
grigio, quello in porta «2» il giocatore nero. 

Se si desidera variare la velocità del gioco 
basterà agire sul valore numerico 
nell’istruzione DATA alla linea 10275 dove è 
stata inserita anche una REM di commento: 
diminuendo tale valore la velocità aumenta. 

Vi sarà così possibile giocare delle partite 
appassionanti e di durata notevole a patto eh- 
abbiate un minimo di abilità. 

N.B. - La parte di programma che controlla il 
movimento delle racchette, della pallina, le 
respinte e l’inclinazione della pallina stessa è 
completamente realizzata in linguaggio 
macchina. 
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1 REM ******************************** 


2 REM * + 

E REM * WIMELEDON '" 84 * 

*i REM * 1 * 

5 REM * * 

t REM * BRUMELLI BRUNO * 

7 REM * * 

t REM * VIA DEI PRETI 1 * 

5 REM * * 

10 REM * 06034 FOLIGNO <PO> * 

11 REM * * 


12 REM *** * * * ********* * * * ****** * * * * * * * * 

2 -3 POKE33280,5 : P0KE53281,5: P0KE53269 .• 0 
22 PRINTTJai 

H m ‘ ni VI " 

2- PRI NT " ' 

^ ss-a VI 

26 PRIMI" «rr’V' I M BLE'D 0 H Zi 

vm " 

28 PRINT"Mtì- 

PRI NT "SE -' UH INCONTRO DI TENNIS IN CI 
KjUE SET," 

85 PRINT"SENZA TIE-BREAK, TRA DUE CIOCflT 
ORI:" 

-j PRINTTflB<8)"WUN0 NERO HED «UNO GRIGIO 

r 

! ~5 PRINT"M«CHE SI CONTENDONO LA FAVOLOSA 
COPPA. " 

50 PRINT"MLR BATTUTA E"' INDICATA DA UNA 
PALLINA" 

55 PRINT"ACCANTO AL PUNTEGGIO DEL GIOCAT 
ORE CHE" 

60 PRINT l 'DEVE BATTERE." 

65 PRINT"PER EFFETTUARE LA BATTUTA PREME 
RE IL" 

70 PRINT"PULSANTE DI FUOCO DEL JOYSTICK 
INTERES-" 

75 PR I NT ' ‘SATO .'"PRI NT "MI L JOVSTICK IN PO 
RTA 2 COMANDA IL NERO" 

80 F'R I NT "IL JOYSTICK IN PORTA 1 COMANDA 
IL «GRIGIO" 

E5 PRINTTAB08) "«PREMI !TF1 «PER INIZIARE". 

: - A$= " " • GE I A$ : IF R$0"MI" I HEHtìò 
E 7 PR I NT‘TT ' ■' PRINTTAB< 8 ) ' 'RIATTENDERE, GRAZ 
lE ! 

c i S1<1) = 1 :S1<2)=2 : 31<3> =3 : S1(4)=4 
63 S2<1) = 1 :S2C2 > = 1 :S2(3>=1 : S2 <4 >=0 
SC POR I=0TO191 READA : POKE16000+1, A : NEXTI 

21 -ORI=49202T049546 :READA : POKEI,A : NEXTI 

• =52224:14=52480 


93 POKEK+7, 1 ; POKEW+7, 1 : POKEK+6,1 : F‘OKEW+6 
,1 :PGKEK+5,1 : POKEW+5,1 

94 POKEK+249, 1 : POKEW+249, 1 •' POKEK+250, 1 : P 
OKEW+250, 1 : POKEK+251 ", 1 : POKEW+251,1 

95 POKEK+4,2 :POKEW+4,1 :POKEK+3,2 :POKEW+3 
, 1 

96 POKEK+252,2:POKEW+252,1 : POKEK+253, 2 -P 
OKEW+253,1 

97 POKEK+2,3 = POKEW+2,1 :P0KEK+1,3 :POKEW+1 
, 1 

98 POKER+254,3 : POKEW+254,1 : POKEK+255,3 :P 
OKEW+255,1 : POKER,4 :POKEW,0 

99 PS <0) — " 0":P$e 1> = "15": PS C2) = "30": PS <3 
) = ’ '40 ' ' ■' P$’ (. 4 ) — ' 'V. 

100 PRINT'TU r-r- 

110 PRINT"I I 

I" 

120 PRI NT" I-r-H-,- 

4 " 

130 FOR1 = 1T05 : PRINT ' ‘ I I I 

I I'' : NEXTI 

140 FRI NT" F I-H-1 

H" 

150 FORI = 1T05 ■' PR I NT ' ' I I I 

I I" NIENTI 

160 PRI NT" I- 1 -1-<■- 

H" 

170 PRINT"I I 

I" 

180 PRI NT" 1 - L - 

_i ■ ■ 

190 PRI NT ".Hi-A r-» r-i r- 

200 FRI NT'' ISPUNTIH I 13GIOCHIil I 1SSET771 I 13SE 
T PRECEDENTIHI" 

210 PRI NT" I-1 I-1 I-1 I—t 1 r 

—i-1" 

220 PRI NT" I «00 ITI II «00 Hit «0 mil«UU 
H I «001711 «00H I *001711 «007711 " 

230 PRI NT" I-1 I-1 I-H I-1-1-1- 

-1-|" 

240 PRI NT" I «SUO HI I S»0 IBM «0 HIIH00 
H ISS00H ISJ00IT11SS00H IS100H I ' ' 

250 PRI NT" 1 - J L - 1 1 - J 1 - 1 - 1 - L 

■ , ■* 

300 V=53248 

310 POKEV+39,0 : POKEV+40,15 : POKEV+41,11 : R 
EM COLORI SPRITE 

320 POKE2040,250 : P0KE2041,251'•P0KE2042,2 
52 : REM PUNTATORI SPRITE 
330 POKEV,32 : P0KEV+1,116:REM POSIZIONE R 
ACCHETTA NERA 

340 POKEV+2,241:POKEV+3,99 : REM POSIZIONE 
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RACCHETTA GRIGIA 

350 POKEV+21,3 : REM ABILITAZIONE SPRITE 
360 XN=32:XG=241 :VH=116 :VG=99 ; BT=INT<<RH 
D <0 > * 18 >/5 ) : IFBT=0THEHVP= 116 •' G0TU366 

365 VP=99 

366 POKE54296, 15 = P0KE54277,0 : P0KE54278, 0 
:P0KE54275,8 :P0KE54274,8 

367 P0KE54273,35 : P0KE54272, 162 

370 PRI NT 1 '; 

330 I FBT=0THENPR I NTGOTO4O0 
390 PRINT-WJIS!#"; 

400 IFBT=0THENXP=30:VX=1 : GOTO420 
410 XP=243:VX=~1 

420 POKEV+4,XP = POKEV+5,VP :POKEV+21,7 
430 VI=PEEK<56320+BT >: VI=VIAND16 
440 IFV1 = 16THEN430 

450 VV=I NT < RND < 0 > * 1075 > •' I FVY=OTHENVV=-1 
460 I = I NT < < < RND < 0 > * 10 ) /3 >+l> •' SX=S 1<I)= SV 
=S2< I) : PRIHT'ÌI 

470 F'OKE780 , B1 

471 IFVX--1THEHP0KE49152,255 : G0T0473 

472 P0KE49152, 1 

473 IFV"r~-1THENP0KE49153255 : G0T0475 

474 P0KE49153.' 1 

475 POKE49154,SX : P0KE49155,SV : P0KE49156, 
MX : P0KE49157, HV:P0KE49158,8 

476 P0KE54276,65=FORI=1TO20 : NEXTI•P0KE54 
276,8 

480 3VS49202 : .j^F'EEK < 780 ) : G=0 •' W=0 
490 IFJ=0THEHP0=F'0+1 : G0T0518 
508.P1=P1+1 

510 IFP0-4AHDP1<=2THEHG0=G0+1 :G=1 

520 IFP1=4ANDP0<=2THENG1=G1+1 : G=1 

538 IFP0=5ANDP1=3THENG0=G0+1 :G=1 

540 IFP1=5ANDP0=3THENG1=G1+1■G=1 

550 IFP1=4ANDP0=4THENP1=3 : P0=3 

568 I FG= 1 THENF'0=0 : P1 =0 = G=0 : CB = 1 

570 PR I NT ' 'Pii* ' T$ < P 

0)":«M*t;:"PT'::pi>; 

580 IFG0<6ANDG1C6THEN620 
598 IFG0-G1 >=2THEHS0=S0+1 •' S= 1 

608 IFG1-G0>=2THENS1=S1+1 : S=1 
610 IFS=1THENK0=G8'K1=G1•G©=8 : G1=0 
620 G0$=RIGHT$<STR$<GO >,2):G1 $=R IGHT$CST 
R$<G1>, 2> 

630 PR I NT '''60$ ' 'G1 $, 

640 IFS0=3THENW=1 
650 IFS1-3THENLN2 

660 S0$-RIGHT$<STR$<80>, 1 ) =S1$=RIGHT$<ST 
R$(S1>, 1 > 

670 PRINT ,, »iÌi*mil ,, S0$‘')!ft!iB! ,, Sl$; 

680 IF301THEH725 
698 S=0 ■' NS=NS+1 

780 FORI = 1TONS : PRI NT ' 'KIWI' '; : NEXTI 

718 KO$=RIGHT$(STR$<K8>,2):K1$=RIGHT$<ST 

R$<Kl.ì,2> 

728 PRI NT ' TTH ' 'KÓ$ ' 'jsftlUlc:' 'K1 $J 
725 IFW=0THEN760 

730 I FW= 1 THEHF'R I NT ' 'Stt* Ili» PilaVINCI TORE ' ' 

740 IFU=2THENPRINT"^Ìl«>»»»ft»ft»»«»»ftl 
«VINCITORE" 

750 FORI = 1TO1500 :NEXTI 

755 A$= GETA$• IFA$=CHR$< 13>THEHF'RINT'TJ 

" : POKEV+21,0 ■■ END 

756 GOT0755 

760 IFCBO1THEN810 


770 CB—8•VN—116 : VO—99 : XH—32 : XG®241 

780 IFBT=0THENBT=1 : VP=VG : GOTO808 

790 IFET=1THENET=Ò:VP=VN 

880 POKEV, XH '■ PQKEV+1, VN : POKEV+2, XG : POKEV 

+3,VG:GOT0370 

310 IFVN=116THENYN=99:VG=116 :G0T0838 

820 VN=116 : VG=99 

830 IFBT=0THENVP=VN:GOTO300 

348 YP»YG=GQTO880 

10000 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
240,0,0,248,0,0,240,0,0,240,0,0,240,0,0 
10010 DATA240,0,0,240,0,0,240,0,0,240,0, 
0,240,0,0,240,0,0,0,0,0,0,0,0,0,0,0,0 
10020 DATA0,0,0,0,0,0 

10030 DATH0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,31,0,0,31,0,0,31,0,0,31,0,0,31,0,0 
10040 DATA31,0,0,31,0,0,31,0,0,31,0,0,31 
, 0 ,0,31,0, 0 J0,0, 0 , 0 , 0 , 0 ,0, 0 , 0 ,0,0,0,0, 0 

10050 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 , 0,0 , 0 , 0,0,0, 0 , 0,0,0 
10860 DATA0,60,0,0,68,0,0,60,0 
10070 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0, 0,0,0,0, 0 , 0,0 , 0,0, 0 , 0 
10108 DATAI 74,8,288,172,01,208,173,0,220 
,186,176,6,136,192,58,208,1,200,106,176 
10118 DATA6,280,192,166,208,1,136,106,17 

6.6.202.224.31.208.1.232.106.176.6.232 

10120 _ DATA224,133,208,1,202,142,0,208,14 
0,1,208 

1 0 1 30 DATA 174 ,2,208,172,03,208, 1 73, 1 ,220 
, 1 06,176,6,136, 1 92,50,208, 1 ,200, 1 06, 1 76 
10140 DATA6,200,192,166,208,1,136, 1 06, 1 7 

6.6.202.224.140.208.1.232.106.176.6.232 

18150 DATA224,242,288,1,202,142,2,208,14 
0,3,288,173,4,192,201,0,208,12,173,2 
10160 DATA192,141,4,192,173,3,192,141,5, 
192,173,0,192,24,109,4,208,141,4,208 
18170 DATA206,4,192,173,5,192,201,0,240, 
13,173,1,192,24,109,5,208,141,5,208 

10180 DATA286,5,192,173,5,268,201,46,208 
,11,173,1,192,73,254,141,1,192,56,176 
10190 DATA15,173,5,208,201,170,208,13,17 
3,1,192,73,254,141,1,192,169,0,141,4 * 


10200 

DATA192 

, 17 

3,4,2 

08 

,201,255 

, 288 

t C* 

9,0, 96 

:, 173,4, 

208 

,201, 

16 

,208,3) 

169, 1 

.* y ò 

10210 

DATA173,3y 

,208, 

41 

,3,201, 

0 

, 240 

> 10 

201,1, 

208,26, 

205 

, 6, 19 

2, 

240,21, 

141,6 

, 19, 

10220 

DATA169 

, 1, 

141,8 

, 1 

92,173, 

1 

, 208 

, 56 

3 *" ,5,2 

08,141, 

7,192,56 

, 1 

76,23,2 

0 

C- ZT 

•JQ 

192 

10230 

DATA240 

70 
.* 1 . £ 

, 141, 

6, 

192,169 

, 

tz- cr 
CL-J-J 

141 


,192,173,3,208,56,237,5,208,141,7,192 
18240 DATAI 69,0,141,4,192 
10250 DATA173,1,192,201,8,16,15,174,7,19 
2,224,8,16,20,160,1,140,1,192,56,176,12 
10260 DATA174,7,192,224,0,48,5,160,255,1 
48,1,192,174,7,192,189,8,204,141,2,192 
18270 DATAI89, 6 ,205,141,3,192,162,0,232, 
234,234,234,234,234,234,234,224 
10275 DATA255 : REM DEFINISCE LA VELOCITA"' 
DEL GIOCO <2 - 255> 

18280 DATA208,244,76,50,192 









































SCI ALPINO 

* Alessandro Altemani 


Anche seduti comodamente avrete la 
possibilità di cimentarvi nelle tre specialità 
dello sci alpino: 

1) SLALOM GIGANTE 

2) SLALOM 

3) DISCESA LIBERA 


Ricordate che le bandierine BLU devono 
essere passate a sinistra e quelle ROSSE a 
destra. 

Il percorso è ogni volta diverso; per dirigere lo 
sciatore devono essere usati i tasti cursore. 





I CLS:GOSUB 13000 

i C~SsCURSORl6,23 SPRINT"ISTRUZIONI CS/NJ 
I SET F$ 

: F$="S" THEN GOTO 14000 

i Ir F*="N" THEN GOTO 10 
1 3CT0 e 
- OR,i ,2 

5 ;*="C51flSC5ffiSE9" 
ie CLS SX=19 sY=l 

H COLOR,,e,2 

■i IfrfWNUDERO GIOCATORI ?" ;A 
£ PRINTSPRINT 

< Gin B*CfO,CC9J,DC9),n«Cfl)iR=0 
£ FOR 1=1 TO A 

t n*c»=“-" 

y h£XT i 

6 POR 1=1 TO a 

le =SInT“GIOCATORE N. “ ;l 
le :k*>UT B*cn 
ti *ExT I 

e pRINT:PR]NT"13 SLALOD GIGANTE"IPRINT 
c: 5LAL0TT SPRINTAI DISCESA" 
iC SET J* 

*C J*="l " THEN GOTO 110 
■*“ - r .*=“2“ THEN GOTO 141 
I r .*=“3" THEN GOTO 142 
3C~C 102 
: C« :=1 TO 9 
: : . = ;NTC4*RNDCn + 13) 

: : .=:ntc4*rndcu + i 73 
*E‘~ .sGOTO 150 


141 FOR 1 = 1 TO 9iCCn=JNTC30*RNDCn+4JiD 
Cn = INTC30*RNDCU+4) SNEXT IsGOTO 150 

142 FOR 1=1 TO 9:CCI)=INTC11XRNQC11+2)10 
C10 = INTC11XRNQC13+18)sNEXT I:GOTO 150 
150 1=0 

150 X=19iT=l:I=J+1:IF I>A THEN GOTO 700 
170 COLOR,,,0:CLS 

180 CURSORI 0,10 SPRINT 16,13"PARTE "ÌB4CI3 
130 nUSIC"R9R3" 

200 COLOR, , ,7 
210 CLS 

220 RETI *#* 1 SCHET1A *** 

230 R=1 

240 G0SU8 6000 

250 GET A*:IF A* = "»l" THEN TI*="000000":G 
OTO 10000 
255 GOTO 250 

260 RETI *** 2 SCHEDA *** 

270 COLOR,,,?!CLS:R=2 

280 G0SU8 6100 

290 GOTO 10000 

300 RED *** 3 SCHEDA *** 

310 COLOR,,,71CLS sR=3 

315 GOSUB 6200 

320 GOTO 10000 

330 RED *#* 4 SCHEDA *** 

340 COLOR,,,?:CLS:R=4 
345 GOSUB 6300 
350 GOTO 10000 

360 RED *** 5 SCHEDA FINE *** 

370 COLOR,,,7 :CLSIR=5 
375 GOSUB 6400 
I 380 GOTO 10000 


390 CURSORI0,22IPRINTC6,11"TEDPO :“iTI» 
400 D*CI)=TI» 

410 nUSIC"R9R9“ 

420 GOTO 160 
700 COLOR,,,0:CLS 
710 'COLOR, ,6,0 
720 FOR 1=1 TO A 

730 CURS0R5.5+I :PRINTB*CI)1TABC20)1RIGHT 
tCD»U),3) 

740 NEXT I 
750 END 

6000 COLOR,, 1,7 

6010 CURS0RCC1),10IPRINT C» 

6020 CURS0RCC23,18:PRINT C* 

6030 COLOR,,2,7 

6040 CURSOROC13,14 SPRINT C* 

6050 CURS0RDC2),22 SPRINT C* 

6060 RETURN 

6100 COLOR,,1,7 

6110 CURS0RCC3),10sPRINTC$ 

6120 CURS0RCC4),18 SPRINT C* 

6130 COLOR,,2,7 

6140 CURS0RDC3T, 14 SPRINT C» 

6150 CURS0RDC43,22 SPRINT C* 

6160 RETURN 

6200 COLOR,,1,7 

6210 CURS0RCC5J,10 SPRINT C* 

6220 CURS0RCC6),18 SPRINT C* 

6230 COLOR,,2,7 

6240 CURS0RDC5),14 SPRINT C$ 

6250 CURSQRDC6),22:PRINTC$ 

6260 RETURN 

6300 COLOR,,1,7 

6310 CURS0RCC7),10 SPRINT C$ 
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6320 

CURSORCC83,1 8 :| 

PRINT 

C* 

6330 

COLOR,,2, 

7 



6340 

CUR3QKDC73,14 SPRINT 

C* 

6350 

CURSORDI8 3,22 SPRINT 

C* 

6360 

RETURN 




6400 

COLOR,,1, 

? 



6410 

CURSQRCC93,10 SPRINT 

C* 

6420 

COLOR,,2, 

7 



6430 

CURSORDI93, 14 si 

PRINT 

C* 

6440 

RETURN 




7000 

ON R GOTO 

7010,7100, 

,7200,; 

7010 

IF CT=71+CY=8I 

THEN 

GOTO ; 

7020 

IF X>CI2) 

THEN 

GOTO 

12000 

7030 

RETURN 




7040 

IF x>ccn 

THEN 

GOTO 

12000 

7050 

RETURN 




7100 

IF CY=7]+[Y=83 

THEN 

GOTO ; 

71 10 

IF X7CI43 

THEN 

GOTO 

12000 

7120 

RETURN 




7140 

IF X>C(33 

THEN 

GOTO 

12000 

7150 

RETURN 




7200 

IF CY=73+CY=8) 

THEN 

GOTO ; 

7210 

IF X>CC63 

THEN 

GOTO 

12000 

7220 

RETURN 




7240 

IF X>CC53 

THEN 

GOTO 

12000 

7250 

RETURN 




7300 

IF CY=73+[Y=83 

THEN 

GOTO ; 

7310 

IF X>C[8) 

THEN 

GOTO 

12000 

7320 

RETURN 




7340 

IF X>CC7) 

THEN 

GOTO 

12000 

7350 

RETURN 




7400 

IF X> CC93 

THEN 

GOTO 

12000 

7410 

RETURN 




8000 

ON R GOTO 

8010, 

,8100, 

8200,1 

8010 

IF Y=15 

THEN GOTO 8040 

8020 

if x<ocn 

THEN 

GOTO 

12000 

8030 

RETURN 




8040 

IF X<QC2) 

THEN 

GOTO 

12000 

8050 

RETURN 




8100 

IF Y-15 

THEN 

GOTO 

8140 

81 10 

IF X<D(33 

THEN 

GOTO 

12000 

8120 

RETURN 




8140 

IF X<DC43 

THEN 

GOTO 

12000 

8150 

RETURN 




8200 

IF Y=15 

THEN 

GOTO 

8240 

8210 

IF X<OC53 

THEN 

GOTO 

12000 

8220 

RETURN 




8240 

IF X<0(63 

THEN 

GOTO 

12000 

8250 

RETURN 




8300 

IF Y=15 

THEN 

GOTO 

8330 

8310 

IF X<DC73 

THEN 

GOTO 

12000 

8320 

RETURN 




8330 

IF X<DC8) 

THEN 

GOTO 

12000 

8340 

RETURN 




8400 

IF X<DC93 

THEN 

GOTO 

12000 

8410 

RETURN 





10000 CURSORX,Y:PRINT[7,0I " C8C8CB I1IBBBC6C 
BC8BBBB CBCBr& BBBB CBrarp “ 

10010 Y=Y+1 

10020 IF,Y>20 THEN Y=0SON R GOTO 260,300 
,330,360,390 

10030 CURSORX,Y:PRINT[0,7I" £3 " 

10040 CURSORX,Y+1 ÌPRINTC4.73" 7nrB79 " 
10050 CURSORX,Y+2:PRINTC1,73" AC " 


10060 CURSORX,Yt3:PRINTC2,71" A£ » 

10065 POR U-1 TO 15 
10070 GET A* 

1.0080 IP A*="B" THEN GOTO 10170 
10090 IP A*="B" THEN GOTO 10500 
10100 NEXT U . 

10110 ON R GOSUB 6000,6100,6200,6300,640 


0 


10115 CURSOR0,23IPRINTC2.6T TI* 

10120 TF Y=7 THEN GOSUB 7000 
10130 JF Y=I1 THEN GOSUB 8000 
10135 IF.R=5 THEN GOTO 10000 
10140 IP Y=l5 THEN GOSUB 7000 
10150 IF Y=19 THEN GOSUB 8000 
10160 GOTO 10000 

10170 CURSORX,Y SPRINT[7,01 " C8C8CS BBBBCB 

csrB aaBB rBrarB ffiBEB rsrBrB 1 * 


10180 X=X“1!Y=Y+I 

10190 IF Y=>20 THEN T=0sQN R GOTO 260,30 
0,330,360,390 

10200 CURSORX.YiPRINTCB,73 "FIFF-F.F-" 

10210 CURSORX,Y+1 SPRINTC4,71" <K£" 

10220 CURSORX, Y+21PRINTC2,71" ff, " 

10225 POR. K=1 TO 15 
10230 GET 6$ 

10240 IF A*="B" THEN GOTO 10330 
10250 IF A*="ffl" THEN GOTO 10000 
18260 NEXT K 

>0270 ON R GOSUB 6000,6100,6200,6300,640 
0 

10275 CURSOR0,23:PRINT [2,63 TI* 

10280 IF Y=8 THEN GOSUB 7000 
10290 IF Y-12 THEN GOSUB 8000 
10300 IF Y=16 THEN GOSUB 7000 
10310 IF Y=20 THEN GOSUB 8000 
10320 GOTO 10170 

10330 CURSORX,Y1PRINTC7,03 " C8C8C8 BBBBCB 

c8C9i ìiBBB CBrpca aBB acar.8C8 " 

10340 X=X-1 

10350 IF Y>20 THEN Y=0iON R GOTO 260,30 
0,330,360,390 

10360 CURSORX, Y:PRINTC0,7I"£1. " 

10370 CURSORX, Y+1 :pRINTC4, 73" P5P-1 " 

10380 CURSORX,Y+2:PRINTC1,73" < " 

10390 CURSORX,Y+3ÌPRINTC2,73" C3C3C3 " 
10400 FOR K=1 TO 8 
10410 GET A* 

10420 IF A*="ffl" THEN GOTO 10170 
10430 NEXT K 

10440 ON R GOSUB 6000,6100,6200,6300,640 
0 

10445 CURSOR0,231PRINT [2,63 TI* 

10450 IF Y=8 THEN GOSUB 7000 
10460 IF Y=12 THEN GOSUB 8000 
10470 IF Y=!6 THEN GOSUB 7000 
10480 IF Y=20 THEN GOSUB 8000 
10490 GOTO 10330 

10500 CURSORX, Y ipRINT[7,0] " rprars uiBBBi'HC 
8CPBBBB C8CBr;B lflBBB C8C:8CB '‘ 

10510 X=X+1 iY-Y + 1 

10520 IF Y=>20 THEN T=0SON R GOTO 260,30 
0,330,360,390 

10530 CURSORX. YiPRINTIB. 73 " FOi'AH " 

10540 CURSORX,T+1:PRINT[4,73"FO> " 

10550 CURSORX,Y+2:PRINT[2,73" 02 " 

10560 FOR K=1 TO 15 
10570 GET A* 

10580 IF A*-"B" THEN GOTO 10670 
10590 IF A*="ffl" THENGOTO 10000 
10600 NEXT K 

10610 ON R GOSUB 6000,6100,6200,6300,640 
0 

10615 CURSOR0,23 SPRINT 12,63 TI* 


10620 IF Y=8 THEN GOSUB 7000 
10630 IF Y=12 THEN GOSUB 8000 
10640 IF Y=16 THEN GOSUB 7000 
10650 IF Y=20 THEN GOSUB 8000 
10660 GOTO 10500 

10670 CURSORX, T 1PRINT[7,03 " rBCBCB BBBB CSC 
BCBSBBB CSCBCP IllBBB rSCBCB " 

10680 X=Xtl 

10690 IF Y=>20 THEN Y=0:ON R GOTO 260,30 
0,330,360,390 

10700 CURSORX,Y1PRINTI0,73“ F4" 

10710 CURSORX, Ytl SPRINT». 73“ C4C1 " 

10720 CURSORX,Y+2SPRINTI!,73" > " 

10730 CURSORX, Y+3 sPR I NT[ 2,73 "C3C9C3“ 
10740 POR K=1 TO 8 
10750 GET A* 

10760 IF A*="tt" THEN GOTO 10500 
10770 NEXT K 

10780 ON R GOSUB 6000,6100,6200,6300,640 
0 

10785 CURSQR0,23 SPRINT [2,63 TI* 

10790 IF Y=8 THEN GOSUB 7000 
10800 IF Y=12 THEN GOSUB 8000 
10810 IF Y=16 THEN GOSUB 7000 
10820 IF T=20 THEN GOSUB 8000 
10830 GOTO 10670 


12000 CURSORI 0, 10 SPRINTI6, 1 3 "HAI SALTAI, 




12010 CURSORI 0, 1 2 SPRINTI,6, 1 3 "UNA PORTA' 
12020 NUSIC"R9R9" 

12030 GOTO 160 

13000 COLOR,,,0 

13010 CLS 

13020 COLOR,,4,0 

13030 CURS0R4,1 SPRINT"7877" 

13040 CURS0R4.2 5PRINT l l 7a77 18aB B78707H77 [fr 
BBB7B707077" 


13050 CURS0R2.5 sPRINT" 787070707077 fflBBB£ 
B787070707877 ffiBBBBB B787070707077 aBBBBBB 
7870707070707077" 


13060 COLOR,,2,0 

13070 CURS0R4,3 SPRINT "7172B B B7172" 

13080 nUSIC"R9R9" 

13090 COLOR,,1,0 
13100 CURS0R9.4SPRINT "F5CaC8C8C8 USBBMBB 
5CPCBC8r:arH BBBBflBB CBC8C9 HIBBB C8CPB BaCPC 
9MBBB FECBCBCBF3 11IBBBB FECBCBCPF3 Q1L4BBFFC 
'SB BCBCBI jBBH FBrpCBtU HBBFIH BrBCBCRCBf'BCM UlMI 
BBB CBCPCBC8C9 " 

13110 nUSIC"R9R6" 

13120 CURSORI 8,4 SPRINT "F5CBCBC8C8C8 SJBBB 
BB BFSCBCBC8C8CBrB BBBBBaBB rfiC8C0 BBBBr8i"i 
B acarB uiaB rBrB ttiB Bcacs fflBB rBrpa fla rpr;a i6aBf> 
BCSBH BCBCOHI UlHBB FF.CBf'PCPl'PrHr eaBBBBBBI 
SCBCBCHCR" 

13130 f1USIC"R9R6" 

13140 FOR 1=4 TO 15 
13150 CURS0R27,IsPRINT "C8C8" 

13160 NEXT 
13170 nUSIC"R9R9" 

13180 COLOR,,4,0 

13180 CURS0R8,17sPRINT "E£C3F0 C5 
C7C7ED C5EEC3C3ED" 


13200 nUSIC"R4“ 

13210 CURS0R8,18SPRINT "FCC40A £5 
7C7 PO C5C5 


C7" 


13220 nUSIC"R4” 

13230 CURS0R8,I9SPRINT"C5 C7 £5 FCC4LF 
7C7 E0C5C5 C7" 


13240, nUSIC"R4" 

13250 CURS0R8,20 sPRINT'Xb £7 ECC4 C5 C 
C? C5F.UC4C4LL" 


13260 riUSIC"K2" 

13270 CURS0R28,22 SPRINT[5,01"By Alex" 

13280 CURS0R34,4 SPRINT[6,0 J "P1MBRISBEUBI1I 
1UIBBY" 

13290 FOR 1=1 TO 7 
13300 CULOR,,1,0 

13310 CURSQR32,2 spRINT" F1F1F1F1F1 " 
13320 FOR S=3 


TO I I 

13330 CURS0R32,SsPRINT"Fj." JTABC363 !"F1 
13335 CURS0R32.12sPRINT "FlF1F1FlF1 " 
13340 NEXT S 

13350 GET G* sIF G*="Y" THEN RETURN 

13360 NEXT I 

13365 GOTO 13290 

14000 CLS 

14010 COLOR,,2,0 

14020 PRINT 

14030 PRINT"Il gioco si compone di tre 
ipi di " :PRINT"discesas"SPRINT"! SLAL 
GIGANTE" SPRINT"2 SLALOH e" 8PRINT"3 DI: 
ESA" 

14040 PRINTSPRINT 

14050 PRINT“Ogn! volta che si ricominci 
"sPRINT“cambia l'ordine delle bandier 


14060 PRINTSPRINT 
14070 PRINT"Le bandierine BLU devono es 
ere"sPRINT"passate a s1n!stra"sPRINT"Le 
bandierine ROSSE devono essere "sPRINT"i 
assate a destra"SPRINT SPRINT 
14080 PRINT"USARE I TASTI DEL CURSORE" 
14090 PRINT" CO.C-O e U3" 

14180 PRINT"Prem! <CR>" 

14110 GET L* 

14120 IF L*=CHR*[131 THEN GOTO-10 
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SPACCAMATTONI 

f = Dberto D’Acunto 

ha versione per il VIC 20 del famoso 
-EAKOUT. 

‘e struzioni sono contenute nel programma. 



- EH******************************* 


i REM * * 

: REM* ROBERTO D"flCUNT0 * 

’iRem* ■ * 

, REM* VIA MI ANO.. 17 - SCftlJRI (LT) * 

• REM* * 

REM* C.A.P. 04028 * 

REM* * 


REM******************************* 
b -ORI=1T055 : READfl : P0KE679+I, A =NEXT 
è POR I = 1T020 : REflDfl ■' P0KE735+1, A : NEXT 
B DATA172, 162,2,169,32,153,205,31,153,2 
*,31,153,207,31,162,0,161,0,205,163,2,2 

■V i 

i r DATA 132,2,240,3,136,161,0, 205,164,2,2 
1,5,132, 19,240,1,200,169,224,153,205,31 
153 

s DATA206,31,153,207,31,140,162,2,96 
f DATA162, 0, 189,0,30,201,204,240,10,232 
^24,255,208,244,163,1,141,161,2,96 
? POKE0,197 :POKE1,0 : P0KE673,0 : P0KE674,1 
P0KE675,33 : P0KE676,34 

i fif = ' 'I' ' : S1 -36864 : 82= 1+S1 : S 
=S2+1 •' 84=83+1 : T3=36876 : V0=T3+2 : T2=T3~1 
i PRI NT "Hai" : P0KEV0+1,253 
0 F'RIHT'M SSSPflCCAMATTONIiS" 

t : pr i nt ' ■ arseeiEViD ■" rcunto*nroberto»bg • * 

12*3 PRINT"WW3 DISTRUGGI TUTTI I MATTONI 
a. MURO, OGNI FILA DA"UN PUNTEGGIO DIVE 

PRINT''MEI CON fica VAI A SINISTRA" 

V- PRINT"M CON HCS VAI A DESTRA" 

:< =RINT"M« ;T'CHR$(28)" PREMI UN TAST 

>: :-ETB$ : IFBf=""THEN160 
' =RINT"3aM»"CHR*(2S)" QUANTE PALETTE 
EI* INPUT" < 1,2,3,4)"J L 
C IFL<10RL>4THENL=1 
- =SKEV0+1,239 :POKEVO,15 : V=20 : DV=-1 :GG 
E 7. OD:PRIHT'TJar : IFPU>PMTHENPM=PU 


200 FORI=7680+44T07680+44+21 POKEI.224 
205 POKEI+30720,2 : NEXT 

210 FuRI =3TiJ28 : POKE7680+28* 1,208 : P0KE384 

00+22*1,2 : POKE7701+22*1,207 

220 P0KE33421 +1*22,2 :NEXT 

230 FORI=0TO21 : P0KE3164+1,207 :P0KE38884+ 

1,2 ; NEXT 

240 FORI=3T07:FORJ=1TO20 
250 POKE7680+22*I+J,204 :POKE3840O+22*I+J 
I ■' NEXTJ, I :D=L-1 
260 P0KE7680+X+22*V,81 
270 PR I NT ' 'aSEPUNT I ■ = ' 'FU 1 TAB < 12 ) "P. MAX : ‘ 'P 
M"aW»WHtìCREDITI : "D"S" 

280 SVS680 

230 P 0 K E768 0 +X+2 8 * V, 3 2 
300 X=X+DX 

310 IFXC20RX>19THENDX--DX■P0KET3,220 

320 V=V+DV : IFV=22THEN400 

330 I FF'EEK < 7658+X+22*V ) =204THENDV= 1 : POKE 

T3, 230 : P0KE7658+X+22*V, 32 : PU=PU+< IO-'tC 

340 I FF'EEK < 7702+X+22*V > =2240RF'EEK< 7658+X 

+22*V ) =224THENDV=-DV:P0KET3,240 

350 P0KET3,0 

355 I FPU> 190THENSVS736 : I FF'EEK< 673 ) = 1THEN 
450 

360 SVS680•GOTO260 

400 POKEVO, 15 : FOR I =230TO 160STEP-. 15 : F'OKF 
T2-1,1 :NEXT:P0KET2-1 ,0 
41 0 D=D-1 : IFD>-1THENV=20 : DV--1 : GOSUB3080 
: GOTO260 
420 GOTÒ700 

450 PRINT"3" :PQKEVO+1,27:FORI = 160TO240ST 
EP. 5 : P0KET3, I •' BX=RND( 1 >*505+1 
460 POKE7680+EX,10:POKE38400+BX,INT <PHD< 
1)*7>+l 

470 NEXT:P0KET3,0 :QX=<PU/<L*3> + .5>: 1=0 : I 
=0 

480 J=J +1 : FOR I =0T022 •' POKES 1,12+1: P0KES2, 
38+1 :P0KES3,150-1 :P0KES4,174-1*2 : P0KET3, 
220+1 :NEXT 

490 FORI=2TO0STEF— 1 :POKES1,12+1:P0KES2,3 
8+1 : P0KES3,150-1 :P0KES4,174-1*2 :P0KET3,2 
20+1 :NEXT 
500 IF.K5THEN480 

510 P0KET3, 0 : PR I NT l 'XWfflSM INCI UH BONUS D 
I "QX" PUNTI IL PUNTEGGIO E "ORA "PU+Q'XP 
IJ=PU+QX 

520 FORI«0TO4000 : NEXT 

530 PRINT"3i»SC0MPLIMENTia, CE L"HAI FIAT 
TAM! IL TUO PUNTEGGIO E" STATO DI S"PU" 

S. " 

540 IFPU>PMTHENPRINT"WaaBRAVO:*l PERCHE E 
"ANCHE IL MIGLIORE !" 

550 GOTO710 

700 PRINT"S®!*HÌÌÌil. PALETTE "D+l : P0KET3, 
0 :P0KET2,0 

710 POKE 198,0 ■' PR I NTA$ ’ ' 

ANCORA CS/N>", 

720 INPIJTRT : I FLEFTt ( R$, 1 > = ' 'S ''THEN 180 
740 PRINT''dWMrMe 1 .*'CHRT<28) "CIA 
OH": END 

3000 X= I NT< RHD < 1 *20 ) +1 :1FX<20RX> 19THEN3 
000 

3010 DX=INT(RHDC1)*3>-1 :1FDX=0THEN3010 
3020 P0KE36879,8 


3030 RETURN 
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RE AL GOLF 


di Mario Frustaci 

Chiaramente si tratta di una partita di golf... 
ma diverso è il modo di giocare. 

Il computer sceglie casualmente un punto 
dello schermo grafico (255 x 191) per 
posizionare la buca con relativa bandierina. 

La forza e la direzione dei «tiri» vengono 
impostati fornendo, in base allo schema che 
appare sul video, le coordinate più vicine 
possibili alla buca. 

Lo scarto della distanza tra pallina e buca 
varia con il livello di difficoltà scelto (da 1 a 3) 
e conseguentemente con esso il valore del 
punteggio. 

Il gioco termina quando sono stati effettuati 10 
tiri. 

Nel programma vengono usati due schermi: 
quello ad alta risoluzione per il disegno del 
campo e quello a bassa risoluzione per 
NNPUT delle coordinate. 


10 REFI *************************** 

R E h L GOLF 

11 REO 

per computer SEGA SC 3000 
di FRUSTACI MARIO 
B.Do>uizi n~ 83/1 ARE220 

12 REM 


* * *c * * * * * * * * * * * * * * ifc * * * * * * *c * * 

18 CLS 

20 SCREEN 2)2:CLS 

30 COLOR 3)1,C0,0J-C255,1313 

40 F0RC=2 TO 40 STEP 2 

50 CIRCLE C200,963,C,10,1.3 

60 SOUND 1,CX90,15 

70 NEXT C 

80 SOUND 0 

90 CURSOR 20,50 :PRI NT "Q22U1Q22UQ22UQ22U 

":REM DIGITARE CON GRAPH 

100 CURSOR 20,58 :PRINT"3QW33QU3AUQS3QLI 

3" :REf1 DIGITARE CON GRAPH 

110 CURSOR 20,66:PRINT"33333AS3 33 3AS 

3":REM DIGITARE CON GRAPH 



120 CURSOR 20,74= PRI NT"3AS33QW3 33 3QU 

3" :REi1 DIGITARE CON GRAPH 

130 CURSOR 20,82 :PRINT‘’A22SASAS AS ASA 

S"-*REM DIGITARE CON GRAPH 

140 CURSOR 20, 100 :PRINT"SOFTUIARE by Fr 

ustaci M,":PRINT 

150 CURSOR 50, 120 :PRINT"PRESENTA'' 

160 FOR T=0 TO 700:NEXT T 
170 CLS 

180 SCREEN 1,1:CLS 
130 COLOR 7,1 

200 PR INT"UUUUUUUUUUUUUUUUUUUUUUUUUUUU 
UUUUUUUUU":REH GRAPH+U 
210 PRINT"U 

U" :REM GRAPH+U 

220 PRINT "UUUUUUUUUUUUUUUUUUUUUUUUUUUU 
UUUUUUUUU" :REf1 GRAPH+U 
230 PRINT:PRINT:PRINT 

240 PRINT 11 Q2222222222222222222 

U":REM DIGITARE CON GRAPH 

250 PRINT" 3REAL GOLF 

3":REM DIGITARE CON GRAPH 

260 PRINT" A2222222222222222222 

S":REM DIGITARE CON GRAPH 

270 PRINT:PRINT:PRINT 

280 PRINT" ideato e creato da Frusta 
■ c i dar i o " 
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290 

PRINT 



300 

PRINT 



310 

PRINT” 

per computer SEGA 

SC 30 

00 

ir 



320 

_Il 

CURSOR 10, 

22 :PRINT”@opyright 

-1984 

330 

FOR T=0 TO 

800 :NEXT T 


334 

CLS 



335 

SCREEN 1,1 

:CLS 


340 

CLS :COLOR 

2, 1 


350 

CLS 



360 

CURSOR 4 , 

10 :PRINT "GRADO DIFFICOL 

TA’ 

1 - 2 - 

3 " 


320 

PRINT" . 

222222222222222222222222 


22222” .'REM GRAPH+2 

380 IF INKEY$="1" THEN G=30:GOTO 420 
390 IF INKEY$=”2" THEN G=20:G0T0’ 420 
400 IF INKEY$=”3” THEN G=I0:GOTO 420 
410 GOTO 380 
420 BEEP:CLS 
430 U=0:P=0 

440 A$=”Y":REFI GRAPH+Y 
450 B$="R":REN GRAPH+R 
460 C$=”F1":REFI GRAPH+F1 
420 REM B=casua1 ita’buca 

480 B=INTCRNDC13*2503 
490 C=INTCRNDC13*1203+40 
500 U=U+1 

510 IF U=11 THEN 1090 
520 GOTO 290 

530 REFI tast iera 

540 CLS :SCREEN1,1 

550 CLS 

560 BEEP 2 

520 CLS 

580 COLOR 15,1 

590 CURSOR 0,4:PRINT 

600 INPUT” Crd x: ” ;X 

610 PRINT”” 

620 INPUT” Crd y: "jY 

630 SCREEN 2,2:CLS 
640 REFI disegno comparat ioo 

650 CURSOR 120,180:PRINTA$ 

660 CURSOR B,C:PRINTB$ 

620 CURSOR B,C+8:PRINTC$ 

680 LINEC120,1803-CX,Y+153,8 
690 CURSOR X,Y :PRINTB$ 

200 CURSOR X,Y+8:PRINTC$ 

210 LINEC120,1803-CB,C+153,15 

220 IF X=B AND Y=C THEN P=P+10:GOTO 11 

80 

230 IF ABS CX-B3 <=G AND ABSCY-C3<=G THE 
N P=P+1 -'GOTO 1010 

240 CURSOR 0,10:PRINT“ Hai sbaglia 


t o il lancio.,.” 

250 PRINT:PRINT" Totale tiri: "jUj" 
Punteggio-' ” ; P 
260 FOR T=0 TO 1000:NEXT T 
220 GOTO 480 

280 REFI S C H E FI A 

290 SCREEN 2,2:CLS 

800 COLOR 15,3,C0,03-C255,1913 

810 FOR S=110 TO 1000 STEP 50 

820 SOUND 1,S,15 

830 NEXT S 

840 SOUND 0 

850 CURSOR 50,183:PRINT” " 

860 CURSOR 100,183 :PRINT”1” 

820 CURSOR 150,183 :PRINT” " 

880 CURSOR 200,183 :PRINT”2” 

890 CURSOR 245,183 :PRINT” " 

900 CURSOR 16,50:PRINT” " 

910 CURSOR 16,100 :PRINT”1“ 

920 CURSOR 16,150:PRINT“ ” 

930 CURSOR B,C :PRINTB$ 

940 CURSOR B,C+8:PRINTC$ 

950 CURSOR 120,180=PRINTA$ 

960 LINEC120,1203-CB,C+153 

920 CURSOR 20,10 :PRINT”QUESTA E’LA TRA 

IETTORIA DA SEGUIRE..." 

980 FOR T=0 TO 1600:NEXT T 
990 GOTO 540 

1000 REFI CENTRATO 

1010 K=ABS CX-B3 
1020 2=ABS C Y-C3 

1030 CURSOR 10,10 :PRINT”Rapporto di ap 
prezzamento del " ;K+2;" X" 

1040 PRINT 

1050 PRINT” Totale tiri: Pun 

t e g g i o : " ; P 
1060 PRINT 

1020 FOR T =0 TO 600:NEXT T 
1080 GOTO 480 

1090 REFI FINE PARTITA 

1100 CLS 
1110 PRINT 

1120 PRINT”********* REAL GOLF 

^ >1' ^ ^ i ì 

^ 'T' ^ -T* ^ 

1130 PRINT 

1140 PRINT” Hai terminato la partita 
con un” 

1150 PRINT 

1160 PRINT” punteggio totale di 

„ , p . 

1120 PRINT 

1180 PRINT" ed un rapporto di apprezz 
amento del ” 

1190 PRINT 
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BILANCIO 


di luigi Rustie ali 



Questo programma è indicato per chi ha una 
piccola attività artigianale o commerciale o di 
consulenza; permette infatti di verificare 
attraverso il «ricalcolo» di un qualsiasi bilancio 
(Stato Patrimoniale e Conto Economico) il 
valore di alcuni dei principali indici e la 
possibilità di verificare se nel tempo, con 
l’esame di altre situazioni, vi è tendenza al 
miglioramento o al peggioramento. 

Il metodo seguito per il ricalcolo dello Stato 
Patrimoniale è quello di raggruppare le voci a 
seconda del loro grado di omogeneità (nel 


breve e nel medio-lungo termine). 

Per il Conto Economico vengono detratti in 
«caduta» dal ricavo netto della gestione presa 
in considerazione, le uscite varie, facendo 
riferimento al rapporto che lega queste spese 
con le merci prodotte o i servizi offerti, per 
poter vedere se sul conto economico incida 
maggiormente la parte della produzione vera 
e propria dei prodotti o tutte le altre spese 
non direttamente legate alla produzione o al 
settore di attività. 
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1 rem *** bilancio *** 

2 rem *** di rustica li lu.i9i 

3 rem ### via mazzi ni 13 - 48626 russi < 
ra> 

4 rem 


16 P ok e53280,2 : P ok e53281 .. 2 : P r i ntchr$ < 23 "> 
chr$<153 > 

26 P r i n tchr $ < 14 > ‘ 'SEIB CATEGOR IE DISPOHIEI 
LI 3". 

30 Print"£El fi : liquidità' immediate 
35 Prinfa E = liquidità' differite 


40 Prinfa C 
45 Prinfa D 

50 Prinfa E 
i " 

55 Prinfa F 
•£' 

60 Prinfa 0 
65 Prinf a H 


= disponibilità' " 

= immobilizzazioni tecnieh 

= immobilizzaz. immateria1 

= i mmobi l i zzaz. t" i nanz i ar i 

— Passivo corrente 
= passivo consolidato " 


76 Prinfa 
72 Prinfa 


capitale netto " 
bilancio riclassificato 


75 Pr infai ndica la si3la : 

80 Seta# : i f a#< "a l 'ora$> “ j ‘ 'thenSG 
85 u=asc(af-64 

30 onu9osub3@0 > 400,566,600 > 706,800 .■ 300, 1 
000,1100,2000 
35 9oto20 

100 rem introduzione dati 

360 prinf SBEE1EEI3 liquidità' immediate " 


310 i nput '’iia battere i mPorto : " ; a '• l i — l 

i+a : return 

400 prinf aaaaaaa liquidità' differite 3 

410 input"aa battere importo : "jb : ld=l 
d+b: return 

560 prinfSEGEEEia disponibilità" 3 " 

516 i np ut ' ’EEl battere i mP orto : "c : d i =d 

i+c■return 

660 Pr i nt ’'ÌSUB immob i l i zzaz i oni tecn i 
che* 3 

610 inPufaa battere importo : d : it— i 

t+d ■' return 

706 pr i nt ' 'saaaaaa i mmob i l i zzaz i on i i mmat¬ 
er ia li 3 " 

710 inPufaa battere importo : ";e : ii = i 

i+e- return 

806 P r i nt ' ’KEEEEia i mmob ili zzaz i on i f i nan 
ziarie 3 " 

810 i n P u t " SIC I b a 11 e r e i m P o r t o "f : i n = i 

n+f ■' return 

300 prinf SEEEEEia Passivo corrente Zi " 
310 inPufaa battere importo : ";9 : Pc=P 

c+9 : return 

1000 PrinfSEiaasiEia passivo consolidato 3 


1610 i nP ut ' 'Eia battere i mP orto ■' " ; h : p l = 

Pl+h■return 

110 0 P ri n f SEnaaaa? caPita l e ne 11 o 3 
1110 inPufaa battere importo : l ; cn- 

cn+l : return 

2000 Prinf SI" : rem ricalcolo stato Patrim 
oniale 


k 2010 ac=li+ld+di : af-ii+in+it : ta=ac+af : tp 
=Pc+Pl+cn ; cP=pc+Pl 

2020 Prinf a STATO PATRIMONI RLE RICfìLCOL 
■CAIO" 

2625 P r i nt ' 'Sìatt ivo ' 'sP c ( 27 > ' 'P ass i vo ' ‘ j 
2027 Prinf_ 


d 6 3 6 z z—a c ■ 9 o s u b 2 0 0 0 0 • p r i n t 1 E le o r r e n t e " s p 
c ( 12-1 e n C x# ) ) x$ 

2635 zz=P c : 9osub20000 : p r i ntsP c 1 > ' ’corr » 
“sP c ( 12-1 en x$ ) ) x$ 

2640 zz=af ; 9osub20000 : P r i nt ' 'SEElf ì sso 
sP c 1 a'-1 en (. x$ ) ) x$ • 

2645 zz=Pl : 9osub20000 : P rintsPc ( 1> ' ‘consol 
. ‘'spei 12 _ lem'x$) )x$ 

2650 zz=cn : 9osub20600 : P r i ntsP c<21 > ' 'EK:lìc/n 
etto "sp c < 12 -1 en <! x# ) ) x$ 

2856 Prinf- 


2066 zz=ta : 9osub26000 : Print ' 'atotale ' 'sp 
c (1 2 -1 en ( x$ ) ) x# .• 

2070 z z -1P : 9 o s u b20613 0 : p r i n t s P c ( 13" t o t a l e 
“sP c ( 12— l e n ( x# ) x# 

2075 Prinf--- 

2100 9osub6600 
2116 i fa$= ' 's ' ‘then20 

2200 rem indici di composizione dell'att 
i vo 

2265 Prinf Sia INDICE DI IMPORTANZA PERCE 
NTUflLE DEGLI 3 " 

2206 Prinfa INVESTIMENTI SUL TOTALE ATT 
IVO 3" 

2210 def fn z.Kxx> = (xx/ta)*100 

2225 P=f n z 1 <1 i > : 9osub21006 : P r j. nt "a l i q u 

I idita' immediate = "P# 

2230 P=fn zi < ld> : 9osub21000 : Prinfa Irlu 
idita' diferite = "PT 

2235 P -f n z 1 < d i ':> '■ 9osub21000 : P r i nt ’ "il d i sp 
onibilita' =» "P# 

2240 P=f n z 1 < ac ':> '■ 9osub21000 : Pr i nt ’ 'il ATT I 
VO CORRENTE = 3"P#"3" 

2245 P=f n z 1 i i t > : 9osub21060 : P r i nt "il i mmo 
bi l i zz. tecn i che = "p ■$ 

2250 P=f n z 1< i i ) ; 9osub21000 : P r i nt "il i mmo 
b i 1izz.immater. = "P $ 

2255 P=fn zl(in> : yosub21 000 •'Print''a immo 
bilizz.fi nanz. = "P$ 

2260 P=fn z1<af> : 9osub21000 :P rint ' 'a ATTI 
VO FISSO = a"P#"3" 

2278 9osub6000 
2230 i tc$= ' 's ' ‘then20 

2300 rer>1 indici di comPosizione del Pass 

i vo 

2365 PrinfìSEia INDICI DI IMPORTANZA PER 
CENTUPLE 3 " 

2316 Prinfa DELLE FONTI DI FI MANZI AMEN 
TO 3" 

2320 def fn z2(yy)=.(yy/tP)*100 

2330 Prinf aaSV-iferito af 

2340 P — f lì z2 < P c : 9osub21000 ; p r i nt ' '3P ass i 

vo corrente ="p f 

-• 

2350 P =fli z2< P 1 > : 9osub21000 : p r i nt ' 'apass i 
vo consolidato - "p$ 

2360 P - f n z 2 ( c P > : 9 o s u b 2 10 O 6 : p r i n t "i"ÌC A p IT 
ALE DI PRESTITO =a"P$"3" 
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£370 P=f n z2 <cri > : 9osub£ 1000 : f ri ut ' 'SfcaP i t 

•alt- netto - "p f 

£380 9osub680U 

2330 ifc$=' 's ' *then£0 

2400 rem indici di correlazione 

2403 Prinf'SEEElH INDICI PERCENTUALI DI C 

ORRELfìZIONE a" 

2405 ifpc—Uthen2415 

2410 aa=(ac/P c >*180 :ab=<1i/pc)*100 

2415 ìfit=0anddi=0then2418 

£416 an=<cn/<it+di> >#100 

241 y ad-ac-Pc 

2420 P=aa : 9osub21000 : P r i nt ' '£133 i nd i ce d i 

l i 4 u i d i ta ... "P 4 

2430 P=ab:9osub21 000 : print ' '33 so1vibilit 
a/ immediata."P$ 

2440 P =an : 9osub21000 : Pr i nt ' '£E1 mar-9i ne d i 
struttura.... "P$ 

• 

2450 Print"33 circolante netto.,... 

..'8 ad 

2460 9o s u b 6 8 0 0 

247Ù Print‘'®E133333333 PER FINIRE BATTI 

a f 1 :r 

2475 Print''333 PER CONTO ECONOMICO 13 
F 3 a" 

248 0 9etc$■ifc$=""the n24y 0 

2430 i fc$= ''s ' *then20 

2493 i i ct~ '' «li' 'then400O 

2435 i fc $ = "1he nend 

2500 9ótò2480 

4 0 0 0 r e m c o n t o 6' c o n o m i c o 

4010 Prinf'SHS DATI UTILI DA RICAVARE DA 

L BILANCIO 

4015 Print‘"HF'ER IL CONTO ECONOMICO 

a" 

4020 input"33 CLIENTI '8cr 
•4025 input"33 FORNITORI ";de 
405£i Print"333 se i dati sono esatti pre¬ 
mi SU f-1 Hi" 


4055 Print“333 reimposta i dati corretti 
SUE f-3 IH" 

4060 9eta$ : ifa$=""then4060 

4070 i fa4= ' ' 'then41 00 

4030 ifa4-"a''thencr=0 : de=0 : 9oto4010 

4098 9oto4060 

4100 .Print "SEBI funzioni ammesse •' " 

4105 Print "SEI A - ricavi esercizio tiPic 


4110 Print" B 
4115 Print" C 
4120 Print" D 
4125 Print" E 
endita " 

4130 Print" F 


rimanenze iniziali" 
rima ne nze finali" 
acquisti" 

costi commercializz. e v 
costi amministrativi var 


i " 

4135 Print" G - costi diretti di Produzi 

OTté? 


4140 Print" H 
i " 

4145 Print" I 


oneri/proventi finanziar 
oneri/Proventi Patrimoni 


ali" 

4150 Print" J oneri/Proventi straord. 
e diversi" 


4155 Print" K - imposte" 

41601 Print"3 L - Prospetto di verifica d 
ati inseriti" 


4170 Print"3 M * CONTO ECONOMICO RICALCO 
LATO" 

4200 Print"33 sce9li : " 

4210 9etaf ■' i f a$< 1 ’a ' 'ora.4> ‘ ‘m ' 'then4210 
4220 aa=asc<a$>-64 

4230 onaa.9osub4300.. 4310, 4320.. 4330, 4340, 4 
350.. 4368.. 4370.4380.. 4390,4400, 7000,4500 
4240 9oto4100 

4380 rem ingresso dati Per conto economi 

L CO 

4305 Print"£1333 ricavi esercizio tipico 
d" : inPut"333imPorto : ’8a : rt=rt+a : return 
4310 Print"SE13SJ rimanenze iniziali a" : 
i nP ut ' 'EEEli mPorto : "; b : r i =r i +b : return 
4320 Print "SSEIS rimanenze finali SI": 
i nP ut ' ’3£S:li mP orto : ", c : rt-rt"+c : return 

4330 P r i nt ' '££1313 ac4 u isti a* ' : i nP ut ' '£13 

£li mP orto : " '• d : a 4 —a4 +d ; return 
4840 Print"££139 costi commercine e vendi 
ta" : inPut"333imPorto : e : cc=cc+e : return 

4350 Print"HEEia cosi ii ammin.vi e vari 
: i nP ut ' '333i mP orto : "i f ■' ca=ca+f •' return 
4360 Print"££'1331 costi diretti di Produzi 


one ’ ' : 

: inP ut ' '333imP orto : 

" ; 9 •' cv 

=cv+9■retur 

n 

4370 

P r i n t " ££ 13121 0 n e- r i 

e Prov. 

finanziari 


i nP ut ' 'EEEli mP orto ; 

"i h : of 

=of+h : retur 

n 

4380 

P r i n t " >£ 1£ 0 0 n e r i 

e Prov. 

patrimonia 

li " 

: i nP ut ' 'EEEli mP orto : 

i : pp 

—F* p "i 1 ■ i -etur 

n 

4390 

Print''££139 oneri 

e Prov. 

straordina 

ri " 

: i nP ut ' '3£Cli mP orto : 

", 1 • OS 

=os+1 : retur 

n 

4400 

print"anna imp 

oste 

" : inPu 


t "33:li mP orto : ",m : im=im+m : return 


4500 rem conto economi i co ri calco Lato 
4540 cm-ri-rf+a4 : mv=cm+cv : rl=rt-cm-cv : uo 
=rl-cc-ca. ; un=uo—of-PP-os ; uu=un-:im 
4550 def fn z3 ( ;<y ) — ( xy /rt ) f 1 @0 
4600 Print "Sfa CONTO ECONOMICO RICAL 

COLATO a" 

4610 P r i ntsP c < 22 > ' ‘dat i rea 1 i "sP c <. 3 > " i n V. 

4620 zz=rt : 9osub20000 : P r i nt ' ’3R: ICAVI ESER 
C • TI F‘ I CO "sP c 12~ l en i x f- à x$sP c CIV1 00 ,00 

4640 z z - r.'i v : 9 o s u b 2 0 000 : P r i n t " 3- costo del 
venduto ' 'sp c( 12- 1 en ( 1) ) x$j 

4650 P =f n z3 <mv > : 9osub21000 : P r i nt-P f 
4655 zz=r l : 9osub20000 ■' Pr i nt ' 'UT I LE LORDO 
B"sP c 12~ l en ( x$ ) ) " a' 8 

4660 P =f n z3 ( r l > : 9osub21000 : P r i nt ' 'T3"P f ” a 

4665 z z = c a•9osub2 000 0 :p rint' ' 3— costi 9 en 
. amm . v i ' sp c 1 2— l en x$ .- 1 x$ 

4670 P=fn zS'Cca) : 9osub21000 : PrintPf 
4675 zz=cc : 9osub20000 : P rint ' '- costi 9en, 
vend i ta ' ’sP c 12 _ l en ( x i -) x$ j 
4680 P =f n z3 ( cc ) ; 9osub21000 : P r i nt-P $ 

4685 zz=uo : 9osub20000 : P r i nt ' 'UT I LE OF'ERAT 
IVO ' 'SP c <12-1 en < xf ) Va' 'xf " a" ; 

4690 P=fn z3<uo> : 9osub21000 : print"a"P $"a 

4635 zz—of■9osub2000O•Print ' '3— oneri /p ro 
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v. f i nanz. ' ‘sp c < 12“ 1 e ri < x# ) ) x$ ; 

4760 P—f ri 22 < of ) ' 9osub2.1000 : P r i ntp $ 

4705 zz=P P : 9osub20000 : P rint ' oneri/p rov 

, Patrim. "sPc< 12-len(x$> >x-f 

4710 P =t" n z3<P P > : 9osub21000 : Pr intP$ 

4715 zz=os ■' 9 o s u b 200UQ : P r i. nt ' oner i /p rov 

. str-. ' ’sP c < 12-1 eri < xf > > x$ i 

4720 P =f n z3< os > •' 9osub21000 ; Pr i ntP X 
4725 zz-un : 9osu.b20000 : Pr irit''UTILE PRIMA 
IMPOSTE * 'sP c < 12~ 1 eri < x$ > ) ‘ '13' ‘x$ " S‘ 1 ; 

4730 P=t'n z3<uri > : 9osub21000 : P r i nt 1 "S3’ 'P $ ' ' Èl 

4735 zz= i ro : 9osub20000 : P r i nt ' 'SI— i mP oste 
’ ‘sP c < 12— 1 en < x-t- > ) x$ j 

4740 P=fn z3<im>=9osub210@0=PrintP$ 

4745 zz=uu : 9osub20000 : Print'"3JTILE NETT0 
*'sPc<12-1 en< x$> >x$ "SI"; 

4750 P =f n z3 < uu > : 9osub21000 : P r i nt "TU"P $ " Si 

4800 9o S u b 6 Ei 0 0 
4820 i fa$= ' ’s ' 'then4108 

4830 k 1 - < uu/cn ) #100 ; k 2= < uo/ta ) 4100 • k 3~ < c 
ìv'ta ) * 100 : k 4-< uu/uo ) * 100 
4840 j 1 = < uo/rt > * 100 : J2-1 nt < rt/ta ) : J 3= i nt 
< cv/d i > : j 4= i nt < < cr/rt "> *360 > 

4850 j 5 - i n t < < d e / a 4 ) *360 ') 

4860 def fn z 4 < y x >-< y x/un)*100 

4990 rem indici di redditività - " ed incid 

4310 Pririt'•aEMmmmSREDDITIVITfi" DELLA GE 
STI OHE Si" 

4315 Print"Elidati in Percentuale" 

4920 p =k 1 : 9osub21000 : P r i nt ' 'EElERedd iti v i t 
a'" del Patrimonio : "P$ 

4930 p =k 2 '■ 9osu.b21000 : Pr i nt ' ‘ESSest i one car¬ 
atteristica . ”Pt 

4940 p = k3 : 9osub21 000 ■' Pr i nt ' 'ElRutonom i a P a 
trimoniale : "P$ 

4350 P =1:4: 9osu.b21000 •' P r i nt l 'Eli nc i denza 9e 

st.extracaratt. : "Pi 

4960 9osubS008 

4380 i t" a$= ' ’s ' 'then4100 

5000 rem indici di rotazione 

5010 Print"i#iill»ii®ra ANALISI GESTIONE COR 

REI-ITE SJ" 

5020 P—-,i 1 : 9osub21 @00 : P r i nt ' 'SEEfcedd i t i vi t 
a" delle vendite : "PT" "1 '' 

5025 Print“21Indici di rotazione annua Pe 
r : " 

5030 P r i nt ' 'EECIiaP i ta l e i nvest i to : " -i 2 
5040 Prinf'Etecorte ; "J3 

5050 P r i nt ' 'Ek.:red iti : "J4 

5060 Print"Sdebiti : "•.‘5 

5070 9 o s u b6000 
5090 ifa$="s"then4100 

5100 rem indici economici (Principali co 
st i ratfrontat i a 11ut ile netto > 

5110 P r- i nt ' i=TSai NDICI ECONOMICI DI INC IDEM 
ZA PERCENT. a" 

5120 P - f n z 4 < a 4 ) ; 9 o s u b 21 £10 0 : P r i n t ' ' Edili I n c 
idenza de9li acquisti : "P$ 

5130 P=f n z4<of ) : 9osub21 @80 : P r i nt ' 'SII nc i d 
enza oneri finanziari : "P$ 

5140 P =f n z4< os > ^ 9osub21000 : P r i nt ' 'Eli nc i d 
enza oneri straordin. ; "Pf 
5158 P =f n z4 < cc+ca > : 9osub21800 •' P1- i nt ' 'Eli n 
cidenza costi di vendita : "Pf 


516 0 9 o s u b 6 0 8 0 
5188 i fa$= ' 's "then4100 
5200 Pririt"SJEddddl£ll£l Per rettificare 
stato Patrimoniale = P" 

5202 Print"El Per rettificare conto econo 
mi co - E" 

5205 Print"BBEI PER FINIRE 
WF-71H" 

52G7 9etaT : ifa$=' ' ''then5207 
5210 i fa$= ' 'P ' 'then20 
5220 ifa$="e ' 'then4108 
‘523£i 1 f as= "5I‘ 'thenend 
5508 9oto5207 

680O rem richiesta rettitica 

6018 Pr i nt ' '^lEd'ddddlEdL'dd'drv'UOI R 

ETTIFICARE ? <S> - BATTI UN TASTO " 

6820 yetaf ; itaT~"then6O2G 
6830 return 

7008 rem Prospetto di verifica dei dati 
inseriti 

7005 Prinf'iì VERIFICA DATI INSERITI" 

7010 zz—rt : 9osub20800 : p r i nt ' 'Ed'l * r i cav i 
eserc i z i 0 t i p i co : "sP c < 12-1 en (' x$ > x$ ; 

' ti 2 0 z z—r i ■ 9 o s u b20000 • P r i n t ' ’ * r i m a. n e n z e 
iriiziali : ''sP t ( 12-1en( x$ >> x $; 

7030 zz=rf : 9osub20000 : pr i nt ' ' r i manenze 

t"inali : ''sp c< 12-1en< x$ > :>x $; 

7040 zz--a4 : 9osub20£i00 : P r i nt ' ' * ac4 u i st i 
• ' ’sP c < 12~ l en < xt.i ) x$ > 

7ij 50 zz=cc : 9osub20080 ; print'‘ * costi com 
m■ ne e - ve*ndi ta. • l 'sP c( 12— len(T ) ix 
7060 zz=ca : 9osu.b20800 : Print" * costi amm 
in. vi e va.ri "sPc< 12 — len<x $ > >x T ì 

7870 zz—cv : 9osub2£i@00 : Print" * costi dir 
e 11 i P r o d u z i o n e • " s P c ( 1 2. — l e n ( x -F .> x $ '• 

7880 zz—of : 9osub20@00■Print" * oneri/Pro 
v. f i. nanz i ar i : l 'sP c< 12-1 en ( x$> >xt- ; 

7038 zz~P P:9osub20008 : P rint ' ' * oneri/P ro 
v. p atr i mon i a 1 i : ‘ ‘sP c < 12-1 e<n ( x$ > ) x$ ; 

7100 zz~os : 9osub20008■P rint ' ' * oneri/P ro 

v. s t r a o r d i n a ri : " s Pc( 12 -le n ( x $ >x £■ j 
7118 zz— im : 9osub20808 : print" * imPoste 

: 1 'sp c < 12-1 en < xf ) > xt ; 

7115 zz=rt+rf-r i -a.4 -cc-ca-cv-of-P P -os- i m 
: 9osub20008 

7116 Print"51 * utile netto 
‘ 'sP c < 12— l en ( xTì x$ 

7120 Print"EdlBATTI UN TASTO" 

7138 9eta$ : 1fa$= ' ' ' 'then7130 
7140 return 

288£18 r e m f o r m a 11 a z i o n e 

20010 n#=str$(zz> : x4="" : l=len(n4>-2 : ifl< 

3theni=l : 9oto2003O 

28020 f or i = l to3steP -3 : x$= ". ' *+m i d$ ( n$.. i > 3 

20080 ' x'$= 1 et'tf- < ììT , i +2 > +x$ : return 
21800 rem riduzione a due decimali 
21010 P T-str$<int<P *10T2+.5 >> 

21811 ifP>=0.01andP <=0.09thenP ' ‘ 000 ' '+ 

ri9htf(Pf,là 

21812 it"P>=0. landP<=0.99thenPT=" 80"+ri 
9ht$(P$j2) 

21022 i fP >— 1 andP '(=9.93thenP ’ *+p $ 

2 1823 ifP>=10andP<=33.93thenP $=" '’+P $ 
21825 if‘P=0thenp$=" 0000" 

21830 P*=left$(p $.■ 1 en<p $ >-2> +' "V'+r 19ht$< 

vi, 2> 

21040 return 
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DISPERSIONI 

TERMICHE 

di Giacomo Monanni 



Il programma ha come fine il calcolo della 
potenza di un impianto termico adatto a 
mantenere la temperatura interna di un 
ambiente ad un livello prestabilito, tenuto 
conto di tutte le dispersioni. 

Dopo una breve presentazione vengono 
richieste: la temperatura interna, quella 
esterna, l’altezza e il nome dell’ambiente; 
digitando «0» vengono visualizzati in forma 
tabellare i dati finali. Si passa quindi alla 
individuazione delle pareti, assegnando un 
nome a quella disperdente per poterla 
distinguere dalle altre, e indicando il tipo 
(MM=mattoni, MC=cemento), lo spessore, 
l’esposizione (Nord, Sud, Est, Ovest), le 
dimensioni. 

Il tutto è riassunto poi in una comoda tabella, 
(nel caso non ci siano pareti disperdenti 
occorrerà digitare «0») 

Terminata la prima fase, argomento di 
indagine sono le finestre, di cui viene richiesta 
l’area (nel caso non ve ne siano, digitare 
« 0 »). 

Vengono così visualizzate due tabelle: una 
riassuntiva, l’altra contenente i risultati relativi 
al calore disperso dalle finestre e dal muro. 
Tale sequenza viene ripetuta per ogni parete 
che compone la stanza. 

Infine, si introducono i dati riguardanti il 
pavimento ed il soffitto; nel caso di stanze 
irregolari, viene chiesto in quante zone è 
divisibile il pavimento (occorre cioè frazionarlo 
in più figure semplici) per ognuna delle quali 
vengono richiesti il numero e la lunghezza dei 
lati, per ricavarne l’area. Si deve specificare 


poi quale dei due elementi, soffitto o 
pavimento, disperde calore (se non ci sono 
dissipazioni digitare «0»). 

Vengono nuovamente visualizzate due 
tabelle, la prima riassuntiva, la seconda 
relativa ai calcoli per i ricambi d’aria. 
Terminata questa fase si ritorna all’inizio per 
determinare allo stesso modo le 
caratteristiche degli altri ambienti. 

Sarà così possibile conoscere la potenza 
dell’impianto termico ed i dati riassuntivi 
riguardanti la dissipazione del calore. 


VARIABILI 

QM = calore disperso attraverso il muro 
QF = calore disperso attraverso le finestre 
QP = somma di QM+QF 
ST = somma dei QP 

QV = calore disperso attraverso il tetto ed il 
pavimento 

QR = calore disperso attraverso i ricambi 
d’aria 

TI = somma dei calori disperi (potenza 
impianto termico) 

T2 = somma dei QR 
T3 = somma dei QV 
T4 = somma dei QP 

Le unità di misura usate sono: 

— dimensioni in metri (m) 

— aree in metri quadrati (mq) 

— temperature in gradi centigradi (C) 

— calore in Kcalorie (Kcal/h). 
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10 REI1***DISPERSIQN1**** 

20 REI1*****TERMICHE***** 

30 REt1**d: G. HONNANNI** 

40 REH 

50 REn**per SHARP HZ700* 

00 TEriP07:COLOR,,0,1:PRINT"B" 

20 F0RJ=4T035 

80 COLORJ,I,,6:NEXT 

90 F0RJ=2T016 

100 C0L0R35.J,,6:NEXT 

110 F0RJ=34T04STEP-1 

120 COLORJ,16,,6 JNEXT 

130 F0RJ=15T02STEP-1 

140 C0L0R4,J,,6JNEXT 

150 ^"DISPERSIONI" 

160 B*="TERIHCHE" 

120 C*="DI" 


180 D*="G. HONNANNI" 

190 CURSORI 4,3 :F0RI=1 T0LENCA*3 JPRINTHIO* 

CA$,I,U!:GOSUB3240JNEXT 

200 CURSORI 5,6:F0RI=1TOLENCB* 3 JPRINTH1D* 

CB*,I, 13 iJGOSUB3240JNEXT 

210 CURSORI 8,9 JFORI=1TOLENCC*3 JPRINTHID* 

CCS, I,io; JGOSUB3240JNEXT 

220 CURSORI 4, 13 :FORI = 1T0LENCD*3 JpRINTriIO 

*CD*. 1,13 !JGOSUB3240JNEXT 

230 CURS0R6,23 :PRINT"PREHI UN TASTO PER 

INIZIARE" 

240 GETA*: IFAS=""THEN240 

250 GOSUB3240 

260 COLOR,, 5, 1 JPRINT''B" 

270 PRINT" SUHamEaUDO) F5C8 F5C8 F5CB 


F9 


C8fBCHCbC9C8 F5F.SC8Ì 8C8C8C3C8C8 1 ' 

280 PRINT" 

FA' 1 

290 PRINT" 

rs “ 

300 PRINT" 

£ 2 , 

310 PRINT" 


CH 

C 8 





C 8 

£8 

CB 




C8 

C8 

ca 

C8 

CB 

C. 8 


I ££. " 


320 

PRINT" 

C8 

Cft C8C8C8C8C8C8C 

fi. 

C8 

" 



330 

PRINT" 

C 8 

C8 

CB 

340" 

PRINT" 

C8 

CB 

re 

| ca 

" 




350 

PRINT" 

CB 

CB 

C8 

C8 

II 




360 

PRINT" 

CBCBC.BCBCB C8 

F5C8C8C8C8 

ra e a 

C8 

" 


370 

PRINT" 


CS C9 

C9 

e a 

" 




380 

CURSORI 1,23JPRINT"PREni 

UN TASTO" 

390 

GETA*: 

IFA* = ' 

"THENGOTO390 



400 GOSUB3240 

410 REHXXPROGRAHHnA PER IL CALCOLO DELLL 

I E DISSIPAZIONI TERHICHE** 

420 COLOR,,7,1:PRINT"S" 

430 INPUT"BTEHPERATURA INTERNA*"!TI 
440 GOSUB3240 

450 INPUT"BTEMPERATURA ESTERNA*" ITE 
460 GOSUB3240 

470 INPUT"BALTEZZA DEGLI AHBIENTI = " ,AA 

480 GOSUB3240 

490 COLOR,,5,2:PR1NT"B" 

500 PRINT"BlnnETTERE 0 PER DATI FINALI" 
510 INPUT“B11fiN0nE DELL' AHBIENTE*" INA* 
520 GOSUB3240 

530 IF NA*="0"THENGOTO27I0 
540 GOSUB730 

550 IFTP*="0"THENGOTO600 

560' G0SUB1470 

570 G0SUB1 780 

580 ST=ST+QP 

590 GOTO540 

600 GOSUB2030 

610 G0SUB2510 

620 PT=ST+QU+QR 

630 ST=0 

640 T1=T1+ PT 


650 PT=0 
660 GOTO490 
670 GOSUB27I0 
680 END 

690 COLOR,,5,1 JPRINT"E" 

700 PR1NT"PER TERflINARE innETTERE 0" 

710 GETA* :IFA*="0“THENCOLOR, ,6,2 :PRINT"S 
" JEND 


720 GOTO710 

730 REH**SOTTOROUTINE PARETE** 

740 DIHSC3J,KHC33,KCC33 

750 SC13=25 

760 SC23=38 

770 SC33=50 

780 KOC13=1.6 

790 K0C2J=1.3 

800 KHC33=1 

810 KCC13=2.2 

820 KCC2J=1.8 

830 KCC33=1.6 

840 COLOR,,5,1 JPRINT"E" 

850 CURSORI3,2 JPRINT"ROUTINE PARETE" 

860 CURS0R5,3:PRINT"CALCOLO DISPERSIONI 
DEL CALORE"JPRINT 
870 PRINTNA* 

880 INPUT“BLATO="IL* 

890 GOSUB3240 

900 INPUT"BTIPO PARETE CHH/HC/03*"ITP* 

910 GOSUB3240 

920 IFTP*="0"THEN RETURN 

930 IFCTP* <> "Nfl" 3*C TP*<> "NC" 3THEN PRINT" 

BERRORE SUL TIPO DI PARETE"JGOSUB3240JGO 

TO900 

940 INPUT"BSPESSORE DELLA PARETEC25,38,5 


I 


I 


I 


03=" ;SP 


950 GOSUB3240 

860 N-à J1 = 1 

970 IFSP=SCI3THENN*I 

980 IFI=3THENGQT01000 

990 IFI<3THENI=I+1 JGOTO970 

1000 IFN=0THENPRINT"BERRORE SULLO SPESSO 

RE"JGOSUB3240 JGOTO940 
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1010 1F TP$= " Ufi "THENGOTO1030 
1020 K=KCCN)sGOTO 1040 
1030 K=KNCNI 

1010 INPUT"BESPQSI2 IONE INORO, SUD, EST,OU 

esti=";es* 

1050 GOSUB3210 

1060 IF CESSO "NORD")* CESSO" SUD" I*CES*<> 
"EST"I*CESS <> "OUEST" JTHENPRINT"II1ERR0RE S 
ULL' ESPOSI2IONE"SGOSUB3210:GOT01010 

1020 INPUT"BLUNGHE22P PARETE IN Nt*";LP 
1080 GOSUB3210 

1090 IFES* = "N0RD"THENP=1.2iG0T01 130 
1100 IFES$="OUEST"THENP=l■1:G0T01130 
1110 IFES*="EST"THENP=I.I5SG0T01130 
1120 P*1 

1130 COLOR,,6,1:PRINT"B" 

1110 FORICIT038 
1 150 CURSORI, 3 :PRI NT "F3" 

1160 CURSORI, 5 :PRINT'1_3" 

1120 CURSORI.2!PR1NT"F3" 

1180 CURSORI,9 SPRINT'X3" 

1190 CURSORI.11iPRINT"F3" 

1200 CURSORI.I3;PR1NT"F3» 

1210 CURSORI, l5sPRINT"j_3" 

1220 CURSORI,12;PR1NT"F3" 

1230 NEXTI 

1210 F0RI=6T016 

1250 CURSORI,I:PRINT"C5" 

1260 CURS0R38,I:PRINT“£2" 

1220 CURSQR21,I SPRINT"£2" 

1280 NEXTI 

1230 CURS0R38,1SPRINT'T?" 

1300 CURSORI,1:PR1NT"C5" 

1310 CURS0R2,6 SPRINT"PARETE LATO" 

1320 CURS0R2,8SPRINT"TIPO PARETE" 

1330 CURS0R2,10:PRINT"SPESSORE PARETE" 
1310 CURSGR2, 1 2 sPRINT'XOEFF SCAHBIU TERfl 
ICO" 

1350 CURS0R2,11:PRINT"COEFF ESPOSI2IONE" 
1360 CURS0R2,16:PRINT"LUNGHE22A PARETE 
CI1U" 

1320 CURSORI 1,1 SPRINT!NA$ 

1380 CURS0R22,6:PRINT JL$ 

1390 CURS0R22,8 SPRINTiTP* 

1100 CURS0R26,10 SPRINTISP 
1110 CURS0R26, 12 SPRINT!K 
1120 CURS0R26,Il SPRINTiP 
1130 CURS0R26,16 SPRINTiLP 
1110 CURSORI,23sPRINT"PREnl UN TASTO PER 
CONTINUARE" 

1150 GETA*SIFA*=""THEN1150 
160 GOSUB3210 sRETURN 
120 REN**SOTTOROUTINE FINESTRA** 
i180 COLOR,,2,1 sPRINT"B" 

1190 CURSOR12,2 :PR1NT"ROUTINE FINESTRA" 
1500 CURS0R5,3SPRINT"CALC0L0 DISPERSIC 
DEL CALORE" 

1510 PRINTSPRINTSPRINTNA* 

1520 AF=0 

1530 INPUT"BBAREA DELLA FINESTRA IN Nq 

innETTERE 0 PER TERN1NAREI*"JAI 

1510 GOSUB3210 

1550 IFAI=0THENGOTOI580 

1560 AF*AF+AI 

1520 GOTO 1530 

1580 QF=AF*5*P*CTI-TEI 

1590 COLOR,,5,2SPRINT"S" 

1600 FORICIT032 

1610 CURSORI,6sPRINT"F3" 

1620 CURSORI.8 sPRINT"F3" 

1630 CURSORI.12sPRINT"F3“ 

1610 NEXTI 

1650 F0RI=2T011 

1660 CURSORI ,ISPRINT"C5" 

1620 CURS0R36,IspRINT"C5" 


1680 CURS0R22,I SPRINT“C5" 

1690 NEXTI 

1200 CURS0R2,2:PRINT"AREA FINESTRE" 
1210 CURS0R2,9:PRINT"CALORE DISPERSO" 
1220 CURS0R2,11sPRINT"OACLE FINESTRE" 
1230 CURSOR28,2 SPRINTiAF 


1210 CURS0R28,10 SPRINTIQF 
1250 CURSORI,23spRINT"PREni UN TASTO PER 
CONTINUARE 

1260 GETA*S i IFA$=""THEN1260 

1220 GOSUB3210SRETURN 

1280 REn**SOTTOROUITENE CALORE** 

1290 COLOR, ,6,2 SPRINV'B" 

1800 SR=CLP*AAI-AF 
1810 QN*SR*K*P*CTI-TEI 
1820 QP*Qn+QF 
1830 FORICIT032 
1810 CURSORI■6SPRINT"F3" 

1850 CURSORI,I0SPRINT"E3" 

1860 CURSORI.I1SPRINT“F3" 

1820 NEXTI 

1880 FORI=2T013 

1890 CURSORI.1SPR1NT"C5“ 

1900 CURS0R38, I sPRINT'X5" 

1310 CURSOR22,ISPRINT"C5" 

1920 NEXTI 

1930 CURS0R2.2 sPRINT"CALORE DISPERSO" 
1910 CURS0R2, 9 sPRINT"DAL rtURO" 

1950 CURSOR2,11SPRINT“PERDITA CALORE" 
I960 CURS0R2,135PRINT"nUR0 + FINESTRE" 
1920 CURS0R28,8 SPRINT!Qn 
1980 CURS0R28,12 SPRINTiOP 
1990 T1=T1+QP 

2000 CURSORI,23:PRINT"PREnl UN TASTO PER 
CONTINUARE" 

2010 GETB$!IFB$=""THEN2010 

2020 GOSUB3210SRETURN 

2030 REn**SOTTOROUTINE PAUinENTO** 

2010 COLOR,, 5,2 sPRINT"B" 

2050 CURSORI 1,2sPRINT"ROUT1NE PAUinENTO" 
2060 CURSQR5,3 SPRINT"CALCOLO DISPERSIONE 
DEL CALORE"SPRINT 
2020 PRINTNA* 

2080 QU=0 SAT-0 

2090 FORP*1TO2000 SNEXTP 

2100 COLOR,,6,ISPRINT"B" 

2110 PRINT"IN QUALUNQUE CASO UA INNOESSO 
IL NUNERO DI 20NA IN CUI E' STATO SUDOI 
UISOIL PA- UinENTO" 

2120 INPUT"BBNUNERO 20NE* "IN 

2130 GOSUB3210 

2110 IFN=0THENRETURN 

2150 FORESITON 

2160 COLOR,,5,1SPRINT"B" 

2120 INPUT"Or LATO PAUinENTO*" ILI 
> 2180 GOSUB3210 

2190 INPUT"S2' LATO PAUINENTO*"1L2 
2200 GOSUB3210 
2210 A1=L1*L2 
2220 AT=AT+A1 

2230 COLOR,,2,1sPRINT"B"SPRINT"SCEGLIERE 
UNO DEI SEGUENTI PARANETRI.“ 

2210 PRINT"B0=PAUinENTO E TETTO NON D1SS 
IPANO" 

2250 PRINT"BI=DISSIPA IL SOLO PAUINENTO" 
2260 PRINT"B2=DISSIPA IL SOLO TETTO" 

2220 PRINT"B3-QISSIPANO ENTRANBI" 

2280 INPUT "BINnETTERE OPZIONE SCELTA*"iC 

2290 GOSUB3210 

2300 IFC=0THENRETURN 

2310 IFO3THENGOSU83210 JGOTO2230 

2320 QU=AT*C*CTI-TE1SPRINTSNEXT2 

2330 COLOR,,6,1 spRINT"S" 

2310 F0RI=1T038 

2350 CURSORI,8SPRINT"F3" 

2360 CURSORI.12sPRINT"F3" 

2320 NEXTI 

2380 F0RI=9T0!1 

2390 CURSORI,IspR!NT"C5" 

2100 CURS0R22,ISPRINT"C2" 

2110 CURS0R38,ISPRINT"C2" 

2120 NEXTI 

2130 CURSÙR2,9 SPRINT’XALORE DISPERSO" 

2110 CURS0R2,11 :PRINT“TETTO E PAUINENTO" 

2150 CURS0R28,10SPRINTJQU 

2160 T3=T3+QU 

2120 PRINTSPRINTSPRINT 

2180 CURSOR0,23 sPRINT"PRENI UN TASTO PER 


PROSEGUIRE" 

2190 GE1A*:IFA*=""THENGOTO2190 

2500 GOSU83210sRETURN 

2510 REH**SOTTOROUTINE RICANBIO** 

2520 COLOR,,5,1sPRINT"H" 

?530 QR=AT*AA*.3*CTI-TEI 
2510 COLOR,,5,3sPRINT"B" 

2550 FORI=1T038 

2560 CURSORI,11SPRINT"E3" 

2520 CURSORI, 1.5 SPRINT "E3“ 

2580 NEXTI 

2590 FORI*I2T011 

2600 CURSORI,IspRINT'XS" 

261.0 CURSOR22, I :PR1NT"C2" 

2620 CURS0R38,I:PRINT"£2" 

2630 NEXTI 

2610 CURS0R2,12 SPRINT'XALORE DISPERSO' 
2650 CURS0R2,VI:PRINT"RICAnBI ARIA" 

2660 CURS0R28,13 SPRINT|QR 
2620 T2*T2+UR 

2680 CURSOR0,23:PRINT"PREN1 UN TASTO PER 
CONTINUARE" 

2630 GETA* : IFA*=" "THENGO.TO2690 
2200 GOSUB3210SRETURN 
2210 REN**ISTRU2I0NI FINALI DI STANPA** 
2220 COLOR,,6,2 sPRINT"B" 

2230 FORI*!T038 

2210 CURSORI.2sPRINT"F3" 

2250 CURSORI,1:PRINT"E3" 

2260 CURSORI,6!PRINT"E3" 

2220 NEXTI 

2280 F0RJ*3T05 

2230 CURSORI, I SPRINT'XS" 

2800 CURS0R38,IspRINT"C2" 

2810 CURSORI 3,ISPR1NT"C2" 

2620 CURS0R25, I :PR1NT'X2" 

2830 NEXTI 

2810 FORI*1TÙ38 

2850 CURSORI,8spRINt"F3" 

2860 CURSORI,10SPRINT"F2" 

2820 CURSORI,12:PRINT"F3" 

2880 CURSORI, 11 sPRINT'XA" 

2890 CURSORI,16SPRI>T"E3" 

2900 NEXTI 

2910 FORI*!ITOI5 

2920 CURSORI,ISPRINT"£5" 

2930 CURS0R38,1sPRINT'X2" 

2910 CURS0R26,I:PRINT"C2" 

2950 NEXTI 

2960 CURSORI,9sPRINT"CS" 

2920 CURSOR38,9sPRINT'X2" 

2980 FORI=1T038 

2990 CURSORI,I8:PRINT"F3" 

3000 CURSORI,20 SPRINT"^3" 

3010 NEXTI 

3020 CURSORI,!9:PRINT"C5" 

3030 CURS0R38,19spRINT'X2" 

3010 CURS0R22, 1 9 spRINT'XS" 

3050 CURSOR2,3 sPRINT"TENP,INT" 

3060 CURSORI 5,3:PRINT"TENP.EST" 

3020 CURS0R22,3 :PRINT"ALTEZ2A ANB" 

3080 CURSORI,9SPRINT'XALORE TOTALE DISPE 
RSO ca I . ✓ or-a" 

3090 CURS0R2,11 SPRINT"NURI E FINESTRE" 
3100 CURS0R2,13sPRINT"PAUINENTI E SOFFIT 
TI" 

3110 CURSOR2,15 :PRINT"RICAnBI D'ARIA" 
3120 CURS0R2,I9:PRINT"PQTEN2A INPIANTO T 
EROICO" 

3130 CURS0R2,5 SPRINT JTI 
3110 CURSOR15,5 SPRINT ; TE 
3150 CURS0R22,5 SPRINTiAA 
3160 CURS0R22,11 SPRINTITI 
3120 CURSOR22,13 SPRINTIT3 
3163 CURS0R22,15 SPRINTiT2 
3190 CURS0R28,19 SPRINTITI 
3200 CURSOR0,23:PRINT"PREni UN TASTO PER 
; TERNINARE" 

3210 flETB*sIFB*=""THEN3210 
3220 .COLOR,, 2, 2 SPRINT"B“ 

3230 RETURN 

3210 nUSIC"+Cl"SRETURN 
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CONTRAEREA 

di Alfredo Brossard 


La città è attaccata da aerei nemici; dovete 
abbatterli prima che riescano a distruggere la 
vostra postazione di difesa contraerea. 

Avete a disposizione quattro cannoni: l’alzo e 
la direzione vengono regolati con i quattro 
tasti cursore, il «FIRE» con il tasto «Z». 

Per ogni aereo abbattuto il punteggio varia da 
uno a tre punti a seconda della distanza. 


Gli aerei non vengono invece considerati 
abbatturi quando sono visualizzati in scala 
maggiore di 1. 

I colpi esplosi contro i cannoni della vostra 
postazione hanno effetto distruttivo solo se gli 
aerei nemici sono sufficientemente vicini, a 
bassa quota e in posizione centrale. 
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6100 

FOR I » 1 TO 70 



7370 

FOR I » 120 TO 140 




6130 

SB » SB - KK 



7380 

HPLOT XC ♦ 10,YC TO 1,160 




6133 

IF SB < 2 AND • PEEK (234) 

> 0 THEN 

7660 

A » PEEK ( - 16336) 




7000 



7663 

A » PEEK ( - 16336) 




6140 

IF SB < 2 THEN KK » O 



7670 

NEXT £ 




6130 

YB » YB - (YK * KK) 



7673 

A - 0 

3 GOSUB 3000 


6133 

XB » XB - (XK * KK) 



7703 

IF DR » 3 THEN 7777 

3 DIM X<200>: DIM R(200> 


6133 

POKE 1010,YB 



7710 

SCALE» 2: HCOLOR» 0 

10 

POKE 1022,00 


6137 

POKE 994,XB 



7720 

DRAW 1 AT 10 ♦ 20 * (2 - DR),180 

13 

RESTORE 


6160 

POKE 930,SB 



7722 

DR » DR ♦ 1 

20 

POKE 234,0 


6200 

IF PEEK (1023) » 241 

THEN 

YC » YC 

7723 

FOR I » YC - 3 TO 160 

30 

POKE 878,2 


*■ 1 




7727 

HPLOT 90,1 TO 180,1 

60 DR » O 


6203 

IF YC > 133 THEN YC » 

133 


7729 

NEXT I 

70 PU - 0 


6210 

IF PEEK (1023) » 240 

THEN 

YC » YC 

7730 

POKE 38418,127: HCOLOR» 3 

90 F 

- 0 


- 1 




7730 

GOSUB 4100 

100 

GOTO 6000 


6213 

IF YC < 123 THEN YC - 

123 


7760 

GOTO 6082 

3000 

TEXT 


6220 

IF PEEK (1023) - 136 

THEN 

XC » XC 

7777 

REM END 

3010 

HT AB 13 






7780 

HTAB 11! VTAB 7 

3013 

VTAB 3 


6223 

IF XC < 96 THEN XC » 96 


7790 

PRINT "LA PARTITA E’ FINITA- 

3020 

PRINT "CONTRAEREA - 


6230 

IF PEEK (1023) » 149 

THEN 

XC » XC 

7900 

END 

3100 

HTAB 14 






1 8000 

REM 

3110 

VTAB 12 


6233 

IF XC > 155 THEN XC - 

133 


8001 

REM 

3130 

PRINT “REALIZZATO DA" 


6230 

HPLOT 120.160 TO XC.YC 

TO XC ♦ 10, 

8002 

REM 

3200 

HTAB 12 


vr t n i an. t An 



8003 

REM 

3220 

VTAB 14 


6260 

HCOLOR» 0 



8010 

FOR I - 768 TO 893 

3240 

PRINT "ALFREDO BROUSSARD" 


6270 

HPLOT 118,160 TO XC - 

2, YC 

- 2 TO 

8020 

READ A 

3300 

HTAB 7 


XC «■ 

12,YC - 2 TO 142, 160 



8030 

POKE I,A 

3320 

VTAB 18 


6280 

IF KK » 1 THEN 6314 



9040 

NEXT I 

3340 

PRINT "INDIRIZZO S VIA VALLE 

N. 41 

6290 

ON PEEK (1023) » 218 

GOSUB 6500 

8030 

POKE 804,131: POKE 842, '''l 

" 



6314 

IF YA < 13 THEN 3000 



8060 

POKE 772,00: POKE 773,130 

3330 

HTAB 19 


6313 

IF YA > 120 THEN KY * 

- 2 


8070 

POKE 871,00: POKE 872,130 

3360 

VTAB 20 


6320 

YA » YA ♦ KY 



8080 

POKE 812,16: POKE 813,130 

3380 

PRINT "DOSSOBUOMO (VERONA) 


6325 

POKE 1009,YA 



9000 

REM FIGURE 

3400 

HTAB 7 


6330 

POKE 993,X(I) 



9010 

FOR I - 0 TO 2 

3410 

VTAB 23 


6340 

POKE 945,R(I) 



9020 

READ X,Y,PO,R,3,C 

3430 

PRINT 


6364 

ON INT .( RND ( 1 ) * 9) 

» 6 

GOSUB 6 

9030 

POKE 1008 ♦ I,Y 

3999 

RETURN 


600 




9040 

POKE 992 ♦ I,X 

4000 

REM DISEGNO INIZIALE 


6368 

POKE 38416,0 



9030 

POKE 976 * I,PO 

4010 

HGR .* HCOLOR» 3 


6370 

CALL 768 



9060 

POKE 960 ♦ I,R: POKE 944 ♦ I,R 

4020 

HPLOT O,1 TO 279,1 


6380 

NEXT I 



9070 

POKE 928 * I,S 

4030 

HPLOT 279,1 TO 279,191 TO 0, 

191 TO 

6390 

SA = SA ♦ 1 



9090 

POKE 38400 ♦ I,S 

0, 1 



6394 

IF SA > 3 THEN SA » 3 



9093 

POKE 38416 ♦ I,C 

4040 

SCALE» 2 


6399 

POKE 929,SA 



9200 

NEXT I 

4043 

FOR I » 0 TO 2 


6400 

GOTO 6100 



9220 

< » O.’Y = 0 

4030 

DRAM 1 AT I * 20 ♦ 10,180 


6500 

REM BOMBA 



9300 

FOR I » 33656 TO (38636 + 27) 

4033 

NEXT I 


6303 

3B » 5 



9310 

READ A 

4060 

HPLOT 0,165 TO 63,163 TO 63, 

191 

6508 

YB * YC 



9320 

POKE I,A 

4100 

FOR I - 123 TO 133 


6310 

KK = 1 



9330 

NEXT I 

4110 

HPLOT 1,140 TO I - 3,160 


6520 

YK = 160 - YC 



9340 

FOR I » 36864 TO 36385 

4120 

NEXT I 


6530 

XB = XC ♦ 3 



9330 

READ A 

4123 

FOR I » 130 TO 140 


6540 

XK » 130 - XB 



9360 

POKE I,A 

4130 

HPLOT 133,140 TO 1,160 


6350 

POKE 878,3 



9370 

NEXT I 

4150 

NEXT I 


6560 

A » PEEK ( - 16336) 



9380 

A » 0 

4160 

XC » 123:YC - 140 


6570 

A » 0 



9390 

POKE 232,00: POKE 233,144 

4199 

HCOLOR- 6 


6590 

RETURN 



9400 

RETURN 

4300 

FOR I » 1 TO 20 


6398 

REM SPARO 



9990 

DATA 172,254,3,183,48,30,133,231 

4310 

HPLOT HO - 1,1 ♦ 160 TO 130 

♦ I » I 

6600 

REM 



10000 

DATA 172,234,3,169,0,133,228,183, 

♦ 160 


6603 

A » PEEK ( - 16336) 



144,3 


4320 

NEXT I 


6610 

POKE 38416,170 



10012 

DATA 190,128,3,160,0,32 

4330 

HPLOT 279,163 TO 194,163 TO 

194,19 

6620 

POKE 1008,YA ♦ 8 



10014 

DATA 144,231,172,234,3,183,192,3, 

1 



6630 

POKE 992,X(I) 



190.208 

4400 

VTAB 231 HTAB 30 


6640 

CALL 768 



10020 

DATA 3,160,30,32,130,233 

4410 

PRINT "PUNTI : -jPU 


6660 

IF YA > 70 AND X(I> > 

120 AND X(I) 

10022 

DATA 172,234,3 

4300 

RETURN 


< 140 THEN 7300 



10023 

DATA 183,64,30,133,228 

3000 

REM 


6663 

A » PEEK ( - 16336) 



10030 

DATA 183,160,3,133,231,183,240,3, 

3010 

POKE 38417,0 


6667 

A = 0 



190,224 

3020 

CALL 768 


6670 

RETURN 



10040 

DATA 3,160,0,32,144,231,172,234,3 

3030 

POKE 38417,127 


7000 

REM 



, 183 


3033 

A » 0 


7002 

POKE 780,83 



10043 

DATA 176,3,190,208 

5040 

GOTO 6082 


7003 

POKE 38417,170 



10030 

DATA 3,160,30,32,130,233,172,254, 

6000 

REM PUGNA 


7004 

POKE 7743,170 



3, 183 


6001 

REM 


7010 

FOR I - l TO 7 



10033 

DATA 240,3,133,144,3,183,224,3,13 

6010 

REM 


7020 

POKE 929,I 



3,1 29 


6015 

GOSUB 8000 


7030 

POKE 943,1*8 



10036 

DATA 3,183,176,3,133,192,3 

6033 

POKE 977,2 


7030 

CALL 768 



10038 

DATA 133,160,3,133,48,30 

6040 

HCOLOR» 3 


7033 

A » PEEK ( - 16336) 



10039 

DATA 200 

6043 

REM 


7060 

NEXT I 



10060 

DATA 140,234,3,192 

6044 

A - 0 


7080 

POKE 780,00 



10063 

REM NUMERO DI FIGURE 

6043 

REM 


7090 

POKE 38417,0 



10064 

DATA 9 

6050 

FOR I » 1 TO 70 


7100 

F » F ♦ 1 



10070 

DATA 240,3,76,0,3,169 

6053 

A » A ♦ 0.09 


7110 

IF F » 2 THEN 7200 



10080 

DATA 0,141,234,3,32,67,240,141,23 

6060 

X » X ♦ (8 * SIN (A)) 


7130 

GOTO 7010 



3,3 


6064 

R » R ♦ (0.8* SIN (A)) 


7200 

POKE 38417,127 



10090 

DATA 96 

6063 

R(I) » 73 - R 


7210 

F » 0 



1ÌOOO 

DATA 30,30,0,0,1,170 

6070 

X(I> » X ♦ 30 


7220 

A » 0 



1 ÌOIO 

DATA 1,1,2,0,1,127 

6080 

NEXT I 


7230 

PU » PU + (4 - SA) 



11020 

DATA 30,30,20,0,1,127 

6081 

GOSUB 4000 


7240 

HTAB 3Si VTAB 23 



1 1 ÌOO 

DATA 34,0 

6082 

SA - 1 


7230 

PRINT PU 



1 1 1 10 

DATA 36,42,43,29,27,39,63,23,41,3 

6083 

POKE 929,SA 


7300 

GOTO 6082 



7 


6084 

YA » 30 


7300 

REM 



11120 

DATA 30,9,44,29,33,38,7,0 

6086 

KY - 0.3 


7310 

HCOLOR» 3 



11130 

DATA 36,18,39,9,41,27,30,0 

6090 

POKE 878,3:KK » 0 


7320 

FOR I » XC TO XC ♦ 10 



11200 

DATA 1,0,4,0 

6092 

S8 » 2 


7330 

HPLOT I , YC TO 120,160 



11210 

DATA 53,62,39,44,36,60 

6093 

YB » 72 


7540 

A » PEEK ( - 16336) 



11220 

DATA 35,34,54,46,43,37,36,36,60,3 

6093 

POKE 994,130 


7360 

NEXT I 



9 


6097 

POKE 978,20 


7365 

A - 0 



11230 

DATA 4,0 


50 















































SCHEDA SU 

MICHELANGELO BUONARROTI 

(e puzzle di una sua opera) 




PARTICOLARE DELLA "CREAZIONE“ (CAPPELLA SISTINA).! 


La scuola italiana è pervasa a tutti i suoi livelli 
dalla INFORMATIC-FEVER (ovvero «febbre 
informatica»). 

Proprio di questi tempi è la notizia di corsi di 
aggiornamento di didattica al computer per 
insegnanti, mentre già in alcune classi 
elementari metodi informatici sono usati per la 
comprensione della teoria degli insiemi, per il 
concetto di variabile ... ed altri ancora. 

Ecco per l’appunto una scheda 
didattico-ludica che certo non vuole essere 


sostitutiva del libro di testo e tanto meno della 
lezione orale, ma può inserirsi tra queste in 
un armonico gioco di interscambio. 

Ben vengano allora critiche e suggerimenti da 
parte dei lettori, atti a valutare questa 
operazione che, incitata dai loro consensi, 
potrà investire nuovi ambiti dell’universo 
artistico. 

GESTIONE DELLA SCHEDA 

— premere «S» per leggere la scheda 

— premere un qualsiasi tasto per passare 
alla pagina successiva 

— premere 2 volte «S» per rileggere la 
scheda 

— premere 2 volte «P» per il PUZZLE 

— premere 2 volte «F» per terminare 

GESTIONE DEL PUZZLE 

— DIGITARE I TASTI E, X, S, D per 
muovere i cursori gialli e rilevare la 
tessera prescelta con il tasto «1 ». 

— sempre con i tasti E, X, S, D scegliere la 
casella di immissione nella griglia di punti 
interrogativi e premere il tasto «1». 

— se la collocazione è esatta la tessera 
rimarrà depositata, se è errata tornerà al 
posto d’origine. 

— a fine gioco premere «P» per ricomporre il 
puzzle o «F» per finire. 


10 CALL CLEAR 
20 QK*0 
30 R» 1 
40 TES-97 
50 TEN-0 


60 MAN-1 

70 Al*“PUZ ZLE COMPLETATO 
80 Bl*“PREMI P PER IL PUZZLE" 
90 C$-“PREMI F PER FINIRE 
100 TALENTATIVI 0" 


110 PR*Q 

120 CALL CLEAR 

130 CALL SCREEN(2) 

140 CALL CHAR(128,"FF8181B1818181FF H ) 
150 CALL COLOR(13,2,12) 
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160 CALL CHAR (92, "40201 " ) 

170 CALL CHAR(93,■10102“) 

180 CALL CHAR(96,"0000000000000000“) 

190 CALL CHAR(97,"000000070F1F1F3F") 

200 CALL CHAR(98,"070FFFFFFFFFFFFF") 

210 CALL CHAR(99,"FCFFFFFFFFFFFFFF") 

220 CALL CHAR(100,“000080C0F0FCFFFF") 

230 CALL CHAR(101,"OOOOOOOOOOOOOOC") 

240 CALL CHAR(102,"000000030FOF1F1F") 

250 CALL CHAR(103,"3F7FFFFFFFFFFEFE") 

260 CALL CHAR(104,"FFFFFFFF9F2F778B") 

270 CALL CHAR ( 105, "FFFFFFFFFEFCFOE") 

280 CALL CHAR(106,"FFFFFF8301000001") 

290 CALL CHAR(107,"E0F0F8F8FCFCFCFE") 

300 CALL CHAR(IOB,"IF1F1FOFOFIF1F3F") 

310 CALL CHAR1109,"FDFDFDFDFEFEFFFE") 

320 CALL CHAR(110 f "237F767C88401888") 

330 CALL CHARd 11,"C") 

340 CALL CHAR(112,“013F4F3F7F31132B") 

350 CALL CHAR(113,"FEFEFFFFFFFFDE8E" ) 

360 CALL CHAR(114,"3F3F3F3F3F3F1F1F") 

370 CALL CHAR(115,"F8FOFOEOEOCOC080") 

380 CALL CHAR(116,“0030100000080004") 

390 CALL CHAR(117,“373D1E3F3F7F7241“) 

400 CALL CHAR(118,"DE1E1C08880840FC") 

410 CALL CHAR(119,"OF07020001010101") 

420 CALL CHAR(120,•80808080") 

430 CALL CHAR(121,"0201010303070707") 

440 CALL CHAR(122,"0000B0C0F0F8FCFF") 

450 CALL CHAR(123,"0C1F3F31391F0703") 

460 CALL CHAR<124,"7C38A0E0E0C0C080") 

470 CALL CHAR(12S,“0307FA020404") . 

480 CALL CHAR(126,"FF1F0F0F0F1F7FFF") 

490 CALL CHAR <127,"C7FFFFFFFEC0C0C0") 

500 CALL COLOR(2,3,2) 

510 CALL COLOR(3,3,2) 

520 CALL COLOR(4,3,2) 

530 CALL COLOR(S t 16,2) 

540 CALL COLOR(À,16,2) 

550 CALL COLOR(7,16,2) 

560 CALL C0L0R(8,16,2) 

570 CALL COLOR(9,7,12) 

580 CALL COLOR(10,7,12) 

590 CALL COLOR(11,7,12) 

600 CALL COLOR(12,7,12) 

610 PRINT “ 1 SCHEDA SU MICHELANGELO E 
PUZZLE DI 

UNA SUA OPERA.‘ 

620 PRINT I" ’ PREMI S PER LA SCHEDA... 

1 PREMI P P 

ER IL PUZZLE..." 

630 PRINT »" ‘ PREMI F PER FINIRE. 

' BY DADO 1 

984 ‘"ni 

640 PRINT TAB(3))"'ibcde CAPPELLA SISTINA" 

650 PRINT TAB(3)|“fghiJk" 

660 PRINT TAB(3)|*l«nopq PARTICOLARE DELLA" 

670 PRINT TAB(3)|"rst'uv" 

680 PRINT TAB (3)|"wxyz{I CREAZIONE DI ADAMO" 

690 PRINT TAB 13) j ‘ * *•" 

700 CALL HCHAR(23,9,127) 

710 GOTO 1090 

720 DATA "* MICHELANGELO BUONARROTI NASCE","A CA 
PRESE NEL 1475 ED A SOLI" 

730 DATA "13 ANNI VIENE POSTO A BOTTEGA ","PRESSO 
IL GHIRLANDAIO PER UN","APPREND 
I STATO DI 3 ANNI." 

740 DATA "• SOLO UN ANNO DOPO LORENZO IL","MAGNI 
FICO AMMIRA LE SUE PRIME","OPERE 
E LO INTRODUCE NELLA >" 

750 DATA "' CORTE MEDICEA OVE IL GIOVANE","MICHE 
LANGELO HA NEL POLIZIANO","UNA S 
ICURA GUIDA ALLE DOTTRINE* 

760 DATA "PLATONICHE ED UMANISTICHE." 

770 DATA "' PRIME OPERE A RILIEVO DI M.","SONO L 
A MADONNA DELLA SCALA","E LA CEN 
TAUROMACHIA SCOLPITE" 

780 DATA "TRA IL 1490 E IL 1492.>V NEL 1496 M 
. SI RECA A ROMA","DOVE IN UN DE 
CENNI0 DI LAVORO" 

790 DATA "INCESSANTE VERRA\ POSTO A","SIMBOLO DE 
L RINASCIMENTO.","* DI TALE EPQC 
A SONO LE OPERE" 

800 DATA "DELLA PIETA\ VATICANA ED IL","BACCO UB 
RIACO SITO A FIRENZE.",** SEMPRE 
A FIRENZE PER PIAZZA >■ 

810 DATA "* DELLA SIGNORIA M. CREA DQPO","IL 150 
1 IL DAVID MARMOREO",*!DEALE DEL 
L1U0MQ LIBERO E" 

820 DATA "FAUTORE DEL PROPRIO AVVENIRE.","* I PI 
ANI DEL BRAMANTE PER LA","NUOVA 
S. PIETRO ALLONTANANO M." 

830 DATA "DALLE GRAZIE DI PAPA GIULIO II","IL QU 
ALE LO RICHIAMERAX A ROHA>" 

840 DATA •* NEL 1508 PER LA GRANDE OPERA",“DI AF 
FRESCO DELLA CAPPELLA","SISTINA 
IN CUI LJARTISTA SI" 

550 DATA "SUBLIHERAN IN 4 ANNI DI LAVORO.","* DO 
PO lA MORTE DEL PAPA H.","SCOLPI 
SCE II MOSE\ A MISURA" 

zzi SATA "DEI PROFETI DELLA SISTINA E","A FIRENZ 


E PER LA TOMBA DI >","* GIULIANO 
DEI MEDICI QUATTRO" 

870 DATA "GRANDI SCULTURE SIMBOLEGGIANTI", "LIETE 
RNO SCORRERE DEL TEMPO.","* DAL 

1519 AL 1536 M. ESEGUE" 

880 DATA "1 4 PRIGIONI FIGURE GIGANTESCHE","CHE 
LOTTANO PER LIBERARSI DA UN","HA 
RMO CHE LI FORGIA HA OPPRIME." 

890 DATA "* SUCCESSIVAMENTE CLEMENTE VII>","* CH 
IAMA M. PER L3AFFRESC0 DEL","GIU 
DIZIO UNIVERSALE DIPINTO TRA" 

900 DATA ‘1536 E 1541 OPERA DELINEANTE","LA CRIS 
I DELL3UMANITA\ DINANZI","AL SUO 
CRISTO GIUDICANTE." 

910 DATA "* H. DEDICA I SUOI ULTIMI 20","ANNI DI 
ATTIVITA\ ARTISTICA","ALLA HESS 
A IN OPERA DELLA >" 

920 DATA " PIAZZA DEL CAMPIDOGLIO DI","PALAZZO 
FARNESE ED ANCORA AI","LAVORI PE 
R LA BASILICA VATICANA" 

930 DATA "* LA PIETA\ RONDANINI VEDE 6LI","ULTIM 
I SFORZI DI H. CHE MUORE A","ROM 
A NEL 1564" 

940 DATA "."," 

FINE SCHEDA" 

950 READ A* 

960 FOR X»1 TO LEN(Al) 

970 Y«ASC(SEGf(Al,X,1)) 

980 CALL HCHAR(R,1+X,Y) 

990 CALL SOUND(—i0,Y*100,10) 

1000 NEXT X 
1010 R«R*2 

1020 IF R>15 THEN 1030 ELSE 950 
1030 CALL KEY(0,K,S) 

1040 IF S=0 THEN 1030 
1050 R*1 

1060 CALL HCHAR (1,1,32,480) 

1070 IF Al»" FINE SCHEDA" THEN 1090 

1080 GOTO 950 

1090 CALL KEY(0,K,S) 

1100 IF S«0 THEN 1090 

1110 IF K»83 THEN 1150 

1120 IF K*BO THEN 1180 

1130 IF K*70 THEN 2690 

1140 GOTO 1090 
1150 CALL HCHAR(1,1,32,544) 

1160 RESTORE 
1170 GOTO 950 

1180 CALL HCHAR(1,1,32,480) 

1190 FOR NE»18 TO 24 

1200 CALL HCHAR(NE,13,32,19) 

1210 NEXT NE 

1220 CALL SCREEN(13) 

1230 CALL COLOR(9,2,16) 

1240 CALL COLOR (10,2,16) 

1250 CALL COLOR(11,2,16) 

1260 CALL COLOR(12,2,16) 

1270 PRINT mi" 

1280 FOR QU*13 TO 18 
1290 CALL HCHAR(QU,22,63,6) 

1300 NEXT QU 
1310 RCT»5 
1320 CCT»5 
1330 RCP» 13 
1340 CCP-22 

1350 CALL HCHAR(RCT,3,128) 

1360 CALL HCHAR(3,CCT,128) 

1370 CALL HCHAR(RCP,21,128) 

1380 CALL HCHAR(12,CCP,128) 

1390 FOR T«5 TO 13 8TEP ♦2 
1400 CALL HCHAR(5,T,96) 

1410 NEXT T 

1420 RANDOMIZE 

1430 CT«INT(23*RND*5) 

1440 IF INT(CT/2)*2»CT THEN 1420 

1450 RANDOMIZE 

1460 RT«INT(5#RND*5) 

1470 IF INT(RT/2)*2»RT THEN 1450 
1480 CALL GCHAR(RT,CT,SP) 

1490 IF SP<>32 THEN 1420 
1500 CALL HCHAR (RT,CT,TES) 

1510 CALL SOUND(-100,TES*10,10) 

1520 TES-TES+1 

1530 IF TES> 127 THEN 1550 

1540 GOTO 1420 

1550 CALL COLOR(3,2,13) 

1560 CALL COLOR (4,2,13) 

1570 FOR TT-1 TO 13 
1580 Z-ASC(SEGI(TI,TT,1)) 

1590 CALL HCHAR(20,4+TT,Z) 

1600 NEXT TT 

1610 CALL KEY(0,K,S) 

1620 IF S»0 THEN 1610 
1630 IF S»-l THEN 1610 

1640 IF K*83 THEN 1700 

1650 IF K-68 THEN 1810 

1660 IF K*69 THEN 1920 

1670 IF K-B8 THEN 2C30 

1680 IF K«49 THEN 2140 

1690 GOTO 1610 


1700 ON MAN 60T0 1710,1760 
1710 IF CCT-5 THEN 1610 
1720 CALL HCHAR<3,CCT,32) 

1730 CCT-CCT-2 

1740 CALL HCHAR(3,CCT,128) 

1750 GOTO 1610 

1760 IF CCP*22 THEN 1610 

1770 CALL HCHAR(12,CCP,32) 

1780 CCP-CCP-1 

1790 CALL HCHAR(12,CCP,128) 

1800 GOTO 1610 
1810 ON MAN GOTO 1620,1870 
1820 IF CCT-27 THEN 1610 
1830 CALL HCHAR(3,CCT,32) 

1840 CCT»CCT*2 

1850 CALL HCHAR(3,CCT,128) 

1860 6QT0 1610 

1870 IF CCP-27 THEN 1610 

1880 CALL HCHAR(12,CCP,32) 

1890 CCP-CCP+1 

1900 CALL HCHAR(12,CCP,128) 

1910 GOTO 1610 
1920 ON MAN GOTO 1930,1980 
1930 IF RCT-5 THEN 1610 
1940 CALL HCHAR(RCT,3,32) 

1950 RCT-RCT--2 

1960 CALL HCHAR(RCT,3,128) 

1970 GOTO 1610 

1980 IF RCP-13 THEN 1610 

1990 CALL HCHAR(RCP,21,32) 

2000 RCP*RCP-1 

2010 CALL HCHAR(RCP,21,128) 

2020 GOTO 1610 
2030 QN MAN GOTO 2040,2090 
2040 IF RCT-9 THEN 1610 
2050 CALL HCHAR(RCT,3,32) 

2060 RCT»RCTt2 

2070 CALL HCHAR(RCT,3,128) 

2080 GOTO 1610 

2090 IF RCP-1B THEN 1610 

2100 CALL HCHAR(RCP,21,32) 

2110 RCP»RCP+1 

2120 CALL HCHAR(RCP,21,128) 

2130 GOTO 1610 

2140 ON MAN GOTO 2150,2230 

2150 CALL GCHAR(RCT,CCT,TR) 

2160 IF TR*32 THEN 2210 
2170 CALL HCHAR(RCT,CCT,32) 

2180 CALL SOUNDdOO, 110,0) 

2190 MAN»2 

2200 GOTO 1610 

2210 CALL SOUND(200,-7,0) 

2220 GOTO 1610 

2230 CALL GCHAR(RCP,CCP,PZ) 

2240 IF TR-PZ THEN 2330 
2250 CALL HCHAR(RCP,CCP,TR) 

2260 CALL GCHAR(RCP,CCP-17,OR) 

2270 IF TR*QR THEN 2280 ELSE 2330 
2280 CALL SOUND(200,1760,5) 

2290 MAN»l 

2300 TEN-TENd 

2310 OK»OKd 

2320 GOTO 2380 

2330 CALL SOUND(200,-7,0) 

2340 CALL HCHAR(RCP,CCP,PZ) 

2350 CALL HCHAR(RCT,CCT,TR) 

2360 HAN»1 
2370 TEN-TEN+1 
2380 TENI-STRKTEN) 

2390 FOR V»1 TO LEN(TENI) 

2400 Z-ASC(SEGI(TENI,V,1)) 

2410 CALL HCHAR(20,(17*V)-LEN(TENI),Z) 
2420 NEXT V 

2430 IF OK-36 THEN 2450 
2440 GOTO 1610 
2450 FOR SF-1 TO 21 
2460 P-ASC(SE6I(AI,SF,D) 

2470 PP«ASC(SEGI(Bl,SF,1)) 

2480 PF»ASC(SEGI(Cl,SF,1)) 

2490 CALL HCHAR(22,4*SF,P) 

2500 CALL HCHAR (23,4♦SF,PP) 

2510 CALL HCHAR(24,4+SF,PF) 

2520 NEXT SF 

2530 CALL KEY(0,K,S) 

2540 IF S-0 THEN 2530 
2550 IF K-80 THEN 2580 
2560 IF K»70 THEN 2690 
2570 GOTO 2530 
2580 CALL HCHAR(5,5,32,156) 

2590 CALL HCHAR(22,1,32,96) 

2600 CALL HCHAR(RCT,3,32) 

2610 CALL HCHAR(3,CCT,32) 

2620 CALL HCHAR(RCP,21,32) 

2630 CALL HCHAR(12,CCP,32) 

2640 TES-97 
2650 TEN-0 
2660 MAN»l 
2670 QK-0 
2680 GOTO 1280 
2690 END 
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BIORITMI 


di Costantino Costami 


I bioritmi sono attualmente argomento «alla 
moda» per quanto riguarda i 
personal-computers e molti hobbysti 
programmatori vi si ispirano spesso. 

II programma presentato è diviso in varie 
routines e subroutines che si «chiamano» a 
vicenda a seconda delle ...esigenze del 
momento. 

Dato il RUN viene visualizzato un MENÙ che 
offre le seguenti 4 opzioni: 

1 - stampa delle curve mediante PLOTTER, 

per 3 giorni a partire dalla data 
considerata. 

2 - visualizzazione delle curve su video e, 

dietro richiesta, anche la curva ottenuta 
calcolando, giorno per giorno, le medie dei 
tre cicli analizzati. 

3 - calcolo nuovo bioritmo. 

4 - visualizzazione dei valori percentuali delle 

curve in un giorno particolare (anche al di 
fuori dei 31 giorni che seguono la data 
immessa inizialmente). 

Secondo i valori calcolati per quella data, il 
programma emette 4 tipi diversi di commento, 
più un eventuale avviso di pericolo se ci si 
trova in un giorno critico; sono considerati 
«critici» i giorni in cui una curva è a zero, al 
massimo, al minimo, oppure interseca un’altra 
curva. 

Il programma controlla inoltre che le date 


immesse, sia in fase iniziale sia in fase di 
elaborazione dei bioritmi di un giorno 
particolare, siano coerenti. In particolare si 
viene avvisati se: 

a) la data di partenza del bioritmo è 
antecedente a quella di nascita 

b) se l’anno di nascita è antecedente al 1900 
o successivo al 1984 (per chi avesse 
prozi! o nonni ... ultrasecolari basterà 
aumentare il range accettato alla linea 

1390) 

c) se viene immessa la data del 29 Febbraio 
di un anno non bisestile 

d) se, pur essendo l’anno bisestile, viene 
immessa la data 30 Febbraio 

e) se si immette il giorno 31 di un mese di 30 
f ) se si immette una data dove il giorno è 

maggiore di 31. 

VARIABILI PRINCIPALI 

GN,MN,AN = giorno, mese, anno di nascita 

SC = variabile di scambio 

G,M,A = giorno, mese, anno di partenza 

dei bioritmi se la variabile di 
scambio vale zero; giorno, 
mese, anno di cui si vogliono i 
bioritmi se vale «1 » 

NO$ = nome della persona di cui si 
stanno elaborando i bioritmi 
GG = giorni vita 


1 0 REM******************************* 

20 REM* BIORITMI * 

30 REM* di COSTANTINO COSTANTI * 

40 REM* computer SHARP MZ-731 * 

50 REM******************************* 

60 REM AZZERAMENTO 

70 CLR 

80 REM****************************** 

90 COLOR,,7,1 

100 REM DEFINIZIONE FUNZIONI 

1 10 DEFFNFCX3 =200*SINC2XJC/23*X3 

120 DEFFNPCX3=200*SINC2*X/28*X3 

130 DEFFNI CX3=200*SINC2**/33*X3 

I40 REM****************************** 

150 REM .ROUTINE DI INPUT 

160 INPUT"@Giorno di nascita: 11 ;GN 

170 INPUT"Mese di nascita: “JMN 

180 INPUT"Anno di nascita: "JAN 

190 INPUT"I8G i orno di partenza dei b i or i t 

mi : " J G 

200 INPUT"Mese: "JM 
210 INPUT‘‘Anno: " ;A 
220 INPUT"Nome : "jN0$ 


230 G0SUB1530 
240 SC=0 

250 REM******************************* 
260 REM ROUTINE PER IL CALCOLO DEI 
270 REM GIORNI DI UITA 
280 DIMMC123 
290 MCI3=31 
300 MC23=28 
j 310 MC3)=3l 
320 MC43=30 

! 330 MC5D-3I 
340 MC63=30 
350 MC73=31 

1 360 MC83-31 
370 MC93=30 
380 MC103=31 
390 MCI 13=30 
400 MC123=31 
410 L=0:S=0 

420 IFINTCA/43-CA/43=0THENMC23=29 
430 ZZ=INT C CA-AN3/4 3 

440 IFClNTCCA-AN3/43-CCA-AN3/43=03THENZZ 
-ZZ-1 

450 IFCCINTCAN/43 = CAN/43 3*CMN=23*CGN<293 
3+CCINTCAN/43=CAN/433*CMN<233THENZZ=ZZ+l 
460 IFCINTCA/43=CA/433*CM<23THENZZ=ZZ+1 


470 IFCINTCA/4 3<>A/4 3*CAOAN3THENZZ=ZZ+1 
480 IFCINTCA/43-A/4=03*CM=13THENZZ=ZZ-1 
490 IFCINTCA/43-A/4=03*CM>=23*CMN>=23THE 
NZZ=HZ-H 

500 IFCA=AN3*CINTCA/43<>A/43 THENZZ=ZZ+1 
510 IFMN>MTHEN740 

520 F0RX=MN+1 TOM-1 :S=L+MCX3:L=S:NEXTX 
530 IFCM-13=MNTHEN S=0 
540 IFMN=MTHEN560 

^50 GG= CA-AN3*365tS+ZZ+ CMCMN3-GN3 +G:Q0T0 
590 

560 IFGN> GTHENGG=CA-AN3*365+2Z-CGN-G3 

570 IFGN<GTHENGU-CA-AN 3*365+ZZ+CG-GN3 

580 IFGN=GTHENGG=CA-AN 3*365+ZZ 

590 CLS :CURSOR0,10 ; PRI NT"Giorni di oita 

al " JGJ'V" JMJ'V" JAJ" JGG 

600 CURSOR0,23:PRINT"Premi un tasto per 

continuare" 

610 GETT$ : IFT$ = ""THEN610 

620 IFSC=1THENGOSUB1830 

630 REM***************************** 

640 REM MENU 

C50 PRINT"0M E N U" 

660 CURSOR0,4 :PRINT" I -> Stampa lt curve 
su carta" 
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673 CURSOR0.6 :PRINT"2 -> Uisualizza le cu 
rue sul lo schermo" 

680 CURSOR0,8 :PRINT"3 ■* Cambia i dall pe 
r altri bioritmi" 

680 CURSOR0,10:PRINT"4 •> Bioritmi di una 
data [de1 1 ag1 io]' 

700 GETK$:IFK$=""THEN700 
710 K=UALCK43 

720 USRC623:ONKGOTO730,1330,50,1730 

730 IFCKOI 3 + CKO23 + CKO33-KKO43THEN700 

740 IFCn+1 3 <=CMN-13THENF0RX=M+1 T0I1N-1 :S= 

L+flIXljJ-FS :NEXTX 

750 IFCI1N-1 3=11THENS=0 

760 GG=CA-AN3*365-S-GNfE2-C11CI13-G3 

770 IFC INTC Ax43-Ax4=03#CriN> 23*CM=1 3THENG 

G=GG+1 

780 GOTO530 

730 REM**************************** 

800 REH ROUTINE STAMPA PLOTTER 
810 CLS 

820 CURS0R8,10:PRINT"Sto disegnando le c 
urue " 

830 I10DETN 1SKIP3 H10DEGR :PC0L0R2 iHSET 

840 I1OUE260,0:HSET 

850 AXISI,200,1 

860 PHOtlE 

870 AXISI,-200, 1 

880 PHOTIE 

830 AXISB,-30,31 

900 MODE-52,25:GPRINTC0,03,"e x EFFICIEN 
2fl •»" 

310 PC0L0R3 :MOUE-80>5 JGPRINT "NEGATIUA" 
320 PC0L0R2:M0UE45>5:GPRINT "POSITIUA" 
930 MOUE-16,-6:GPRINT[0,13,“GIORNI, a pa 
rtire dal " , STR4CG3 > STR4CM3 >> STR* 
CA3," 4" 

340 M0UEFNFCGG3, 0 
950 PCOLQR0 
960 FORX=0TD3! 

970 IFCX<73*CFNFCGG+X3<=03*CFNFCGG+X3>=- 

253THEN MODE FNFCGG+X3,-30*X = GOTO990 

980 LINE*!,FNFCGG+X),-30*X 

990 NEXTX 

1000 PCOLORI 

1010 I10UEFNPCGG), 0 

1020 FORX=0TO31 

1030 IFCX<73*CFNPCGGtX3<=03*CFNPCGGtX3>= 

-253THEN MOVE FNPCGG+X3,-30*X:G0T01050 

1040 LINEFNPCGG+X3,-30*X 

1050 NEXTX 

1060 PCOLOR2 

1070 MOVEFNI(GG3 , 0 

1080 FORX=0TO31 

1030 IFCX<=73*CFNICGGi-X3 <=03*CFNI CGGtX3> 
=-251THEN MOVE FNICGG+X3 , -30*X:G0T01 1 I 0 
I100 LINEFNICGGtX),-30*X 
1110 NEXTX 
I120 PC0L0R3 

1130 MOUECFNICGG3f-FNPCGG3 +FNFCGG3 3x3,0 
1 140 FORX=0TQ31 

1153 IFCCCFNICGG+X3+FNFCGGtX3+FNP[GG+X33 

x33<=03*CCCFNI CGGtXI+FNFCGG+X3 +FNP CGG+X3 

3x33>-253*CX<=73THENMOVECCFNICGG+X3+FNFC 

GG+X3+FNPCGG+X3 3 3x3,-30*X:GOTO1170 

1160 LINEZ8,CFNICGG+X3+FNFCGG+X3+FNPCGG+ 

X33/3,-30*X 

1170 NEXTX 

1180 HODETN:SKIP3 

1 180 110DETN :SKIP3 

I190 REM***************************** 
1200 RETI COMPLETAMENTO CURUE CON 
1210 RETI I DATI 
1220 PCOLOR0 :f10DETS 
1230 PRINT/P“Bioritmi di ";NO* 

1240 PRINTxP'Per 31 giorni a pariire dal 
";G;SPCC13iM;SPCC13;A 
1250 PRINTxp“GIorni di ulta: “;GG 
1260 PCOLOR0 

1270 PRINTxP“Curua nera : ciclo 115100“ 
1280 PCOLORI 

1230 PRINTxP“Curua blu : ciclo psicologi 
co” 


1300 PC0L0R2:PRINTxP“Curva uerde : ciclo 
intei Iettiuo“ 

1310 PC0L0R3:PRINTxP"Curva rossa tratteg 
giata- media delle curue" 

1320 T10DETN :SKIP3 :G0T0 630 
1330 REn#**##********#**###**##*##*** 
1340 REM 0ISUALI226'CURUE SU SCHERNO 
1350 PRINT"S" 

1360 FORX=0TO31 

1370 SETXX2.5,16-CFNFCGG+X33x15,2 
1380 SETX*2.5, 16-CFNPCGG+X33x15,5 
1390 SETX#2.5,16-CFNICGG+X3 3x15,7 
1400 NEXTX 

1410 CURSOR0,18:PRINT"Bioritmi d|:";NO$ 
1420 PRINT"Per 31 gg. a partire dal ,, ;G;“ 
x" jn;"x" ;A 

1430 PRINTI2,13"ROSSO : ciclo fisico" 

1440 PRINTI5,13"A22URR0: ciclo psicologi 
co" 

1450 PRINTC7,I3"BIANCO : ciclo intelletti 
uo" 

1460 CURSQR0,23:PRINT"Uuoi la cuneo dell 
e medie [SxN]?" 

1470 GETT»:IFT*="S"THENG0SUB1670 
1480 IFT$=“N"THENGOTO1500 
1490 GOTO!470 

1500 CURSOR0,23!PRINT"Premi un tasto per 
tornare al menu" 

1510 GETD4 : IFD$="“THEN1510 
1520 GOTO630 

1530 REM***************************** 
1540 RETI CONTROLLO ERRORI INPUT 
1550 IF CA4AN3 + C ANO 9003+ CAN> 1984 3THENPRI 
NT"SHai sbagliato a dirmi l'anno S">FORP 
=0TO6000:NEXT:GOSUB2030 
1560 IFC CINTCANX4 3-ANX4 3 <>03*CGN=293*CMN 
=23THENPRINT"8II ";AN;" non era un anno 
bisesti le S":FORP=1TO5000:NEXT:GOSUB2030 
1570 IFCCINTCAx4 3-Ax43O03*CG=293*tn=23T 
HENPRINT“BII ";Aì" non e' un anno bises 
t! le 8“ :FORP=lTO5000 ìNEXT:GOSUB2030 
1580 IFCA=AN3*CMN>H3TH£NPRINT"BHai sbagI 
iato i dati 2":F0RP=I TO5000:NEXTIG0SUB2 

030 

1590 IFCA=AN3*CMN=n3*CGN>G3THENPRINT"0Ha 
I sbaglialo i dati 2":FORP=0TO5000:NEXT: 
GOSUB2030 

1600 IFCMN=23»CGN7293THENPRINT"©Febbraio 
ha 28 giorni 2":FQR P =0TQ5000:NEXT:GOSUB 
2030 



1610 IFCCnN=43+CMN=63+CMN=93+CMN=l 1 )3*CG 
N>303THENPRINT"0QueIIo di nascita e' un 
mese da 30“:PRINT"giorni I“:FORP=0TO5000 
=NEXT:GOSUB2030 

1620 IFCn=23*CG>293THENPRINT"61Febbraio h 
a 28 9 iorni 2":FORP=0TQ5000:NEXT:GQSUB20 
30 

1630 IFCCn=43 + Cri=63 + CM=93 + CM=t 13 3*CG>303 
THENPRINT"BQueIIo del bioritmo e' un mes 
e da 30“:PRINT" 9 iorni 2":FORP=0TD5000:NE 
XT=GOSUB2030 

1640 IFCGN3313+CG3313THENPRINT“HNon esis 
tono mesi da piu' di 31 giorni 2":FORP=0 
: TO5000 :NEXT-'GOSUB2030 
1650 IFSC=1THENRETURN260 
1660 IFSC=0THENRETURN 

1670 REM***#***-»********************* 
1680 RETI CURUA DELLE MEDIE 
1690 FORX=0TO31 

1700 SETXX2.5, 16-CFNFCGG+X3+FNPCGG+X3+FN 
ICGG-fX3 3x45,0 
1710 NEXTX 
1720 RETURN 1500 

1730 REM******************************* 
1740 REM BIORITMI DI UNA DATA 
1750 REM IN DETTAGLIO 

1760 SCO 

1770 PRINT"EOra deui scegliere la data:" 

1780 INPUT"UGiorno :"iG 

1790 INPUT" Elle se : ; M 

1800 INPUT“EAnno :"iA 

1810 G0SUB1530 

1820 GOTO260 

1830 PRlNT"tìBioritmi di " ;N0$ 

1840 PRINT"per il 9 i orno " JG j "/" ; fi ì V" ,*A 

1850 PRINT"BBEff Scienza fisica.* " JFNFCGGJ 
s 2 5 11 x " 

1360 PRlNT"Efficienza psicologica: "jFNP 
; CGG3/2J" x" 

1870 PRINT"£fficienza intellettiva! "JFN 
ICGG)/25" x " 

1880 IFC CFNFCGGD+FNICGG3+FHPCGG3 3/6<=-50 
3^C CFNFCGG3+FNICGG3+FNPCGG3 )/6>=- 100DTHE 
NPRINT"LDI I 9 i orno e' propr i o sfavorevole 
2 " 

1890 JFC CFNFCGG3+FNICGG3tFNPCGG3 3^6>=-50 
3*C CFNFCGG3+FNICGG3tFNPCGG3 3/6<=0 3THENPR 

I I NT " BJI I 9 i orno sembra piuttosto scadente 
2 " 

1900 IFCCFNFCGG3i-FNICGG3+FNPCGG3 3/6>=03* 
CCFNFCGG3+FNICGG3+FNPCGG3 3/'6<=50 3THENPRI 
NT"UII 9 iorno sembra piuttosto positivo 
2 “ 

1910 IFC CFNFCGG3+FNICGG3+FNPCGG3 3/6>-503 
CFNFCGG3+FNICGG3+FNPCGG3 3/6<=100 3THENP 
RINT“Cl)Buono : sei in ottima forma 2" 

1 1920 IFCFNFCGG3=FNPCGG3 3-KFNFCGG3-FNICGG 
3 3 + CFNPCGG3-FNICGG3 3 THEHG0SU81990 

1930 IFCFNFCGG3 <--1903 + CFNPCGG3 <=-1903tC 

FNICGG3 <=-1903 THENGOSUB19S0 

1940 IFCFNFCGG3> = 190 3 + CFNPCGG3> = 19B' 1 . CPN 

I[GG3)=1903THENGOSUB1930 

1350 IFCFNFCGG3=03+CFNPCGG3=03+CFNICGG3= 

03THENGOSUB1990 

1960 CURSOR0)23 !PRINT"Premi un tasto per 
tornare al menu" 

1970 GETT$:IFT$=""THEN1970 
1980 RETURN 
1 990 

2000 REH GIORNI CRITICI 

2010 CURSOR0,10:PRINTC7>03"Pitenzione : e 

/ un 9 iorno critico 2" 

2020 RETURN 

2030 REN****************************** * 
2040 REH SUBROUTINE SCRHBIO 
2050 IFSC=1THENRETURN1770 
2060 IFSC=0THENRETURN70 
2070 REfl****************************** 
2080 REH MUSICHETTA INTRODUTTIUA 
2090 DATAB1,Al,Gl,F1,E1,D1,CI,-Gl,-F1 
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CUBI 


Un videogioco, specialmente se corredato da 
una buona grafica, è certamente uno degli 
aspetti più affascinanti della 
programmazione... ma anche tra i più 
sofisticati! 

Per questo motivo, oltre ad offrire un 
simpatico passatempo, è un mezzo ideale per 
imparare a conoscere a fondo il proprio 
computer e ad assimilare interamente le sue 
istruzioni BASIC. 

«CUBI» è un esempio! 

Al suo interno potrete infatti ritrovare delle 
simpatiche routines da applicare poi anche ai 


Vostri programmi come la visualizzazione dei 
punteggi a caratteri «c-u-b-i-t-a-l-i» (nel vero 
senso della parola!!) o le istruzioni che 
appaiono come fossero scritte a macchina. 

Nel caso poi non abbiate capito il 
funzionamento del gioco presentato, non c’è 
da preoccuparsi; basterà attendere un poco 
ed il computer vi darà una DIMOSTRAZIONE. 
Per gli spostamenti in orizzontale e verticale 
usate i tasti cursore; digitate invece «x», «c», 
«>», «?» per i movimenti in diagonale che 
saranno necessari specialmente quando vi 
troverete isolati dagli altri cubi!!! 



i reh 


2 

REM s/ 



3 

REM ì 1 

c 

ubi : : 

4 

REM ! ! 


• i 

11 

5 

REM ! ! 

Scr 111o 

da F. Russo li 

6 

REM xs 


/\ 

7 

REM N" 



8 

REM 




12 PAPERA :INK7:E=1 

14 H1RES:N=20 

15 GOSUB200 :GOSUB6500 
12 N-20:K1=10:E=1 

18 HIRES:PRINTCHR*C121 :INK3:P8PER4:fl=12 

20 FORBII29TO0STEP-31 

50 CURSETfì,B,3ÌGOSUB20:CURSETflt8,B+6,3 

52 L=L+1 

53 IFL=31THEN57 
55 CHRR126,0,1 
52 NEXTB 

60 GOTO1020 

62 REI1 /// -nnn 

68 REA II! ROUTINE COSTR. CUBO il! 

69 REM \\n- /'/ 


20 U=N/2 

25 DRBWN, 0,E:DRflW0,N,E:DR6W-N,0,E:DRBU0, 
-Ni E 

80 ORAUU, -U, E :DRA14N, 0, E :DRAW-U, U, E 
80 DRAW0, N, E iDRAUIU, -U, E :DRAW0, -N, E 
95 MUSICIi4iINTCRNDC5)*121f1i0:PLAY1,0,1 
,500 

100 RETURN 

101 CURSETF1, 185,3:FILL8,1,64=F1=St 3:S=A 
■t-3 JCURSETSt, 185,3 :CNAR94>0. 

1JGOTD1074 

106 U=Ji35:Fl=34:GOSUB1510 

102 REM -\w 

108 rem ::: routine scritta >cubi>ìiì 

109 REM ws- /// 

200 HIRES:PR1NTCHR«C121;CHR$C61 

205 CURSET32,40,3:GOSUB20 

210 CURSET12,60,3 :GOSUB20:CURSET12,80,3i 

GOSUB20:CURSET12,100,3:GQSU 

B20 

215 CURSET32,120,3:GOSUB20:CURSET22,40,3 

:GOSUB20:CURSET22,60,3:GOSU 

B20 

212 CURSET12,120,3:ORAU20,20,1:CURSET12, 


60,3 :DRAW20,-20,1 

220 CURSET22,80,3:GOSUB20:CURSET22,100,3 
:GOSUB20 

230 CURSET22,120,3:GOSU020:CURSET92,120, 

2:GOSUB20:CURSET112,120,3:G 

OSUB20 

235 CURSET112, 100,3 .'GOSUB20 

240 CURSET112,80,3:GOSUB20:CURSET112,60, 

3 :GOSU820:CURSET112,40,3:G0 

SUB20 

250 CURSET152,40,3 :GOSUB20:CURSET152,60, 

3:GOSUB20:CURSET152,80,3:G0 

SUB20 

260 CURSET152,100,3:GOSUB20:CURSET152,12 
0,3:GOSUB20 

265 CURSET182,30,3:DR8W20,20,1:CURSET1?2 

,40,3: DRBW20,20,1 

270 CURSET172,60,3 :GOSUB70 

275 CURSET172,100,3 :GOSUB70:CURSET172,14 
0,3 iDR6W20, -20,.l 

276 CURSET182,130,3:QR6U20, -20,1 

280 CURSET208,40,3 :GOSUB70 :CURSET208,, 60, 

3:GOSUB70:CURSET208,80,3:G0 

SUB70 
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285 CURSET208,100,3:GOSUB70:CURSET208,12 
0,3:GOSUB70:UAIT10 

230 FORT=0TQ5 :1NK4 : GQSUB3000 : INK3 :UAI T5 : 

NEXT:UAIT150 

300 RETURN 

337 'REH ///-\\\ 

938 REH Ili FLUSSO GIOCO I ! ! 

333 REH - /// 

1000 K1=K1~1:GOSUB1510 
1020 0=0+38:Y=A 

1030 IFA> 219THEN1035 

1031 GOTO20 

1035 U=J+35 

1036 Fl=34:GOSUB1510 

1038 0=207:6=185:X=A:Y=B:CURS£T204,185,3 
:FILL12,3,64 :K*=KEY$ :K*=," 11 
1033 S=0+3:U=-1:0=31:F=1:Fl=0/6 

1040 FORT=0TO2:UOIT100:nUSICl,6, 1 , 0 :PLOT 
1,0, 1,100:NEXTT:GOTO 1055 

1041 K*=KET$:IFC=1THENGOSUB4000:GOTO1043 

1042 IFK4 <> ""THENK=0SCCK*1ELSE 1059:G0T01 
043 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 


IFK=8THENO=fl-38:GOTO1051 
IFK=9THEN0=0+38:GOTO1051 
IFK=11THENB=B-31:GOTO1051 
IFK=10THENB=B+31:GOTO1051 
IFK«="X"THENA=A-38:B=B-31:GOTO1051 
IFK*="/"THENA=A+38:B=B-31:GOTO1051 
IFK*="C"THEN0=0~38:B=B+31:GOTO1051 
IFKS="."THEN0=fl+38:B=B+31:GOTO1001 
IFO <0ORO> 2390RB <10OR8>199THENA=X:B= 
T:GOTO1060 

1052 IFP0INTC0+6,8t4 3=-lTN£NA=X:B=T:GOTO 
1060 

1053 GOSUB1097: IFPOINTCA+3,B1=0THEN1055£ 
LSE1054 

1054 CORSETA+3,B,3:CH0R126,0,2:P=P+1:GOS 
UBI 500 

1055 CURSETX,T,3:CH0R127,0,2: CURSETX+6,Y 
,3:CH0R127,0,2 

1056 CURSETO,B,3:CH0R127,0,1:CURSET0+6,B 
,3:CHOR127,0,1 

1057 X=0:Y=B 

1059 GOTO1060:UOIT10 

1060 FORH=0TOH1 

1061 GOSUB1037 

1065 IFU=30ANDD=-31THEND=31:CURSETS,30,3 
:CH0R126,0,2:U=-1:GOTO1072 

1070 IFU=1850NDD=31THEND=-31:CURSETS,185 
, 3:CH0R126,0,2:U=216: GOTO10 

72 

1071 GOTO1074 

1072 CLS:S=0+3:F1=A/6 :GOSUB1510:F=1:GOTO 
1074 

1074 U=U+D 

1075 IFF=1THENF=0:GOSUB1200:GQTO1090 

1076 GOSUB1200 

1080 CURSETS,U1,3:CHAR126,0,2 
1090 CURSETS,U,3:CH0R126,0,2 

1095 U1=U :G0T01110 

1096 REM // ROUTINE COLPITO s\ 

1097 IFS=O+3ONDU=BTHEN109BELSE1108 

1098 1FP01NTCS,U3 =0ANDPOINT CS+1,U1=0THEN 
P=P+1 : GOSUB1500 : GOTO1100 

1100 Kl-Kl-1 

1101 IFO=207ONDB=185THENGOSUB3050:G0T011 
04 

1102 CURSETX,T,3:CH0R127,0,2:CURSETX+6,Y 
,3 :CUOR127,0,2:GQSUB3050 

1103 CORSETS-2, B,3:FILL8,2» 64:CURSET0+6, 
B+4,1 :CORSETS-8,B-6,3:E=0:G 

OSUIÌ70 

1104 UOIT50:F1=34:GOSUB1510:POP:GOTO1038 
1108 RETURN 

1110 NEXTH:GOTO1041 

1200 MUSICI,2,3,0:PLAY1,0,1,100 :RETURN 

1497 REM ///-sx\ 

1498 REM 11! ROUTINE PUNTEGGIO III 

1499 REM vw-.- /// 

1500 J=J+1 

1510 CLS :PRINTSPCCF1-1 3 ;" y '" 1SPCC43-F1-21 
J"SCORE "JPISPCC101 ; "RETTAN 
GOLI ";K1 


1520 IFK1=0THENWO1T100:GOSUB2700:UflIT200 
:GOSUB2000:HOIT500:PRINTCHR 
*C63:RUN 

1530 IFJ=UTHENGOSUB3200:L=0:UOITI00:GOTO 
1537 

1531 RETURN 

1537 E=1:1FJ>104ONQJ <209THENH1 = 1:POP:GOT 
018 

1538 IFJ=210THENH1=2:POP:G0TQ18 


1540 HI=0:POP:G0TO18 

1600 REM 77/- 

1615 REM il! ROUTINE SCR. PUNT. Ili 
1630 REM -/// 


2000 HIRES:2=LENCSTR*CP33-1:£=1 
2002 IFH=2THENX=14:L=20:N=16:GOTO2007 

2004 IFH=3TH£NX=20:N=10 :L=50:GOTO2007 

2005 IF2=4THENX=10:N=8:L=50;GOTO2007 

2006 X=50 ;L=15:N=20 

2007 PRINTCHR*C43iCHR*C1731 

2008 PRINTSPCC433iCHR»C273"J IL TUO PUNT 
EGGIO E’ 1CHRSC43 

2009 MUSICI,5,1,0:PLOY1,0,1,500:UOIT10:M 
USICI,4,1,0:PLOY1,0,1,500:0 

O1T50 

2010 F0RT=1T0H:X1=X+10:Y=L 
2015 0$=STR*CP3 

2017 B»=MIQ$CA»,T+1,Z3 

2018 C=ASCC8*3 

2019 W=C*8+38912 

2022 F0RK=WT0W+7:0=P£EKCK3 

2023 T=Y+N 
2025 FORU=0TO7 

2040 R=D/2:0CU3=D-CINTCR3X23 
2047 0=INTCR3 
2050 NEXTU 
2060 U=5 

2070 F0RX=X1T0X1+C4XN3STEPN 

2080 CURSETX,Y,3 

2090 IFOCU3=0THEN2105 

2100 GOSUB70 

2105 U=U-1 

2120 NEXTX 

2250 NEXTK 

2300 NEXTT 

2397 REM ///-\\\ 

2398 REM III ROUTINE SONORE III 

2339 REM -/// 

2400 FORT=0TO20 

2500 INK2:P0PER4:UOITS:INX4:P0P£R2:U0IT5 
:NEXTT 

2600 INK2 :P0PER4:RETURN 

2700 F0RT=12T01ST£P-1 

2800 MUSICI,4,T,0:PLOY1,0,1,500:UOIT7:NE 

XT 

2900 RETURN 

3000 PL0Y1,0,0,0 

3010 FORG=0TO300STEP15 

3015 WAJT1 

3020 S0UN01,G,15 

3030 NEXT:PLOY0,0,0,0 

3040 RETURN 

3050 PL0Y1,0,0,0 

3060 FORG=0TO500STEP100 

3070 SOUND1,G,15 

3080 UAIT6 

3090 NEXT:PLAY0,0,0,0 

3100 RETURN 

3200 PL0Y1,0,0,0 

3300 FORG=0TO3:INK3 

3400 SOUND 1,238,15 :LIAIT 10 : INK4 

3500 SOUND1,100,15:WOIT10 

3600 NEXT:PLOY0,0,0,0 :1NK3:RETURN 

4000 IFK$=""THEN4020 

4010 IFASCCK43 = 13THENLIAI T200:PRINTCHR4C6 
3 :RUN 

4020 K=INTCRNDC43X83+8 

4023 IFK>11THENK=K-11:GQTO4026 

4025 GOTO4040 

4026 ONKGOTO4027,4028,4029,4030 

4027 K*="X":RETURN 

4028 KS="C":RETURN 

4029 K* = ". " : RETURN 

4030 «*="/" 

4040 RETURN 


4997 REM ///- 

4998 REM II! ROUTINE ISTRUZIONI II! 

4399 REM \"-7/7 

5000 TEXT 

5010 A«=CHR*C273:BS=CHR*C4) 

5020 PRINTSPCC1273 |B* + A* + ‘'J C g B I'‘+B*i 
CHK4C173 :PRINT:PRINT:WOIT10 


5030 C$="Questo gioco consiste nel canee 
Ilare":GOSUB6550 

5035 C$="tuttl I quadretti sopra al cubi 
." :GOSUB7000:WAIT100:PRINT: 

P1NG :WAIT50 

5040 C$="1u puoi muovere il tuo rettan 9 o 
lino" :GOSUB6550 

5045 C$="pieno orizzontalmente o pertica 
Imente":GOSUB6550 

5050 C$="con I tasti cursore o dlagonalm 
ente" :GOSUB6550 

5055 C$="con I tasti * X’=a11o-sInIstra" 
JGOSUB6550 

5060 C$="’C’«basso-sinistra":A=1?:T=LENC 
:GOSUB7020:PRINT:PING:UB 
IT50 

5065 C$="»?’=aIto-destra" :fl=17 :T-LENCC$D 
:GOSUB7020:PRINT:PIKG:WfìlT5 
0 

5070 C$="’>’-basso-destra":fl=l? :T=LENCC$ 
D :GOSUB7020:WBIT1000:CLS 
5075 C$="Una freccia sotto al cubi indie 
a" :GOSUB6550 

5080 C$="la colonna verticale ove un alt 
r o" :GOSUB6550 

5085 C$ = "rettan 90 l ino a scacchi cerca di 
col-" :GOSUB6550 

5030 C$="plre II tuo rettangolo pieno."s 

GOSUB7000 :UI61 T 100 SPRINT :PIN 

G:WriIT50 

5095 C$^"ria stai attento 2 2 2 " :GO_SUBb550 
6000 Ci-" 09 nl qualvolta tu vieni colpito 
, I1":GQSU86550 

6005 C$="cubetto che stavi occupando sco 
mp ar e . " :GOSLJB6550 

6020 :C$-"Da quando udirai uno sparo,"sG 
OSUB6550 

6025 C$="hai 1/2 minuto per premere un t 
a-":GOSUB6550 

6030 C*="sto e cosi’ Iniziare il 9 ioco, 
aItrI-":GOSUB6550 

6035 C$="menti II computer comlncera’ a 
9 loca-":GOSUB6550 

6040 C$="re una partita contro se stesso 
." :GOSUB6550 

6045 C$="Se mentre il computer gioca da 
solo":GOSUB6550 

6050 C$="premi 'RETURN’, il 9 loco ricoml 
ncla.":GOSUB7000:WPIT200 
6075 K$=KET$:K$=“" 

6080 SHOOT :FQRT=0TO2250 
6085 K$=KEY$ 

6090 IFK$=""THENNEXT:C=1 
6100 PING :RETURN 

6500 PRINTSPCC45) :PRINT"UuoI le Istruzio 
ni CS/N3? 

6505 FORT=0TO1704 
6510 K$=KEY$ 

6515 IFK$="S"ORK$="N"THEN6520ELSE6525 

6520 IFKi="S"THENGOSUB5000:GOTO6530 

6521 GOTO6530 
6525 NEXT :C=1 
6530 RETURN 

6550 GOSUB7000:PRINT:PING:UPIT100 
6560 RETURN 

6997 REH ///-w\ 

6998 REH 11! ROUTINE SCRITTE !!! 

6999 RETI nnn-/// 

7000 T=LENCC*J 

7010 A=C38-T]/2:IFA<0THENA=0:GOTO7020 
7020 PRINT:PRINTSPCCA3I 
7030 F0RA=1T0T 

7040 MUSICI, 1, 1,0.-PLAÌ1,0,1,200 
7050 PRINTnlDS(C*,A,13i 
I 7060 NEXT:RETURN 
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MASTER 

di Massimo Marinelli 


MIND 


Potete scegliere di indovinare un codice 
segreto da tre a sei colori; viene così 
rappresentata sullo schermo la tavola del 
gioco che è formata da 13 righe (12 per i 
tentativi dell’operatore ed una che nasconde il 
codice segreto) e da 3 a 6 colonne a seconda 
della scelta operata inizialmente. 

Una volta impostato il codice appariranno 
nella riga corrispondente al tentativo i colori 
associati. 

Prima della risposta del computer l’operatore 
deve dare l’«OK». Se ci si accorge che i 
colori apparsi sullo schermo non sono quelli 
che si aveva intenzione di immettere basterà 
per cambiarli premere il tasto «RETURN» 
senza aver dato l’«OK». 

Le risposte del computer appaiono a fianco di 


ogni tentativo secondo le regole del gioco: 

BLU = colore esatto al posto giusto, BIANCO 
= colore esatto e posizione sbagliata. 

Se l’operatore intende rinunciare, non dovrà 
far altro che battere il tasto «R» prima di ogni 
colore ed il computer rivelerà il suo codice 
segreto scoprendo le caselle dell’ultima riga. 

Alla fine del gioco verranno fornite delle 
valutazioni in forma di messaggio a seconda 
del risultato ottenuto. 

I codici dei colori ammessi sono: 

Bl = bianco • 

NE = nero 

AR = arancio 

VE = verde • 

VI = viola 

BL = blu. 



IO REM 4HHHt^*****^****iHHt******-** 


13 REM *** *** 
20 REM ** MASTER MIND *-* 
23 REM * * 
30 REM * MASSIMO MARINELLI * 
33 REM * » 
40 REM * VIA FILOMUSI GUELFI,20 * 
43 REM * * 
30 REM ** -00173 ROMA #-* 
53 REM **+ *** 


60 REM M************************** 

63 GOSUB 1000 
70 CLEAR 

73 S = 6:M = 12: L* » ■ 

80 GOSUB 620 

83 DIM B(R>,C<R>:V = R * 2 - lIY = R * 
21-1 

70 GOSUB 850: GOSUB 243: GOSUB 233 

93 o = i:zz = o:zn = o 

ÌOO VTAB 22: PRINT "TENTATIVO NUMERO 
C 

103 X = 2:T* = ■■ 

HO FOR 1 = 1 TO R 

113 VTAB 23: HTAB 19: PRINT Lt 

120 GET A* 

123 IF A* = "R" THEN 490 


130 VTAB 21: HTAB X: PRINT A* 

133 IF Al < > "V" AND A* < > "B" AND 
A* < > "N" AND A* < > "A" THEN GOSUB 
335: VTAB 21: HTAB X: PRINT L*: GOTO 113 


140 

GET Al* 







230 

M* =* A* 







143 

VTAB 21: 

HTAB X ♦ 

i: 

PRINT Al* 


233 

c » c ♦ i: 

IF C 

> 13 THEN 

820 



130 

Tl* = A* 

Al* 






240 

GOTO 300 







133 

IF Tl* < 

> "VE" 

AND 

Tl* 

< > 

"VI 

" 

243 

c = i:c* = 

" " 






AND 

Tl* < > 

“Bl" AND 

Tl* 

< 

> " NE " 

AND 

250 

RETURN 







Tl* 

< > “AR" 

AND Tl* 

< 

> "BL" THEN 

GO 

233 

FOR 1=1 

TO R 






SUB 

333: VTAB 

21: HTAB 

X 

♦ 1 : 

PRINT 

L*: 

260 

P = INT ( 

RND 

( 1) * S) + 

1 




VTAB 23: HTAB 

19: PRINT L*: GOTO 140 


263 

C* = C* ♦ 

STR* 

(P> 





160 

T* = T* * 

Ti*:x = 

X + 

3 




270 

NEXT I 







163 

NEXT I 







273 

PRINT "UN 

MOMENTO... STO 

SCEGLIENDO 

170 

A* = " " 







IL 

CODICE." 







173 

FOR J - 

1 TO V STEP 

2 




280 

PRINT : FOR H 

1 TO 1500: 

NEXT H 


180 

IF MID* 

(T*,J,2) 

- 

"VE" 

THEN 

p* 

a 

283 

PRINT "FATTO!! 

■ 





"i" : 

GOTO 210 







290 

FOR H = 1 

TO 1300: NEXT 

: 

HOME 


183 

IF MID* 

<T»,J,2) 

= 

"VI" 

THEN 

p* 

=» 

293 

RETURN 







-2" 

GOTO 210 







300 

E = i:f = 







190 

IF MID* 

(T*,J,2) 

» 

"Bl " 

THEN 

p* 

a 

303 

FOR J = 1 

TO R 






"3" : 

GOTO 210 







310 

IF VAL ( 

MID* 

(M*.J,1)) 

a 

1 

THEN 

9 

193 

IF MID* 

CT*,3,2) 

■ 

"NE" 

THEN 

p* 

a 

- 1 

: GOTO 340 







■4" : 

GOTO 210 







313 

IF VAL < 

MID* 

(M*,J,1)) 


2 

THEN 

9 

200 

IF MID* 

(T*,J,2) 

= 

"AR" 

THEN 

p* 

= 

- 2 

: GOTO 340 







"3" : 

GOTO 210 







320 

IF VAL ( 

MID* 

(M*, J,1)) 

6 

3 

THEN 

9 

203 

IF MID* 

<T»,J,2> 

» 

"BL" 

THEN 

p* 

= 

» 3 

: GOTO 340 








"6": GOTO 210 
210 A» = A* ♦ P» 

213 NEXT J 

220 GOSUB 550 

223 IF A » R THEN 720 
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323 IF VAL ( 

» 0: GOTO 340 

MID* 

(MS,J,1)) 

» 4 

THEN 

330 IF VAL ( 

- 3: GOTO 340 

MID* 

(MS,J,1)) 

» 3 

THEN 

335 IF VAL ( 

» 6: GOTO 340 

MID* 

(MS,J,1)) 

» 6 

THEN 


340 REM INSERISCE COLORI 
343 COLOR - 0 
330 HLIN E,E ♦ 1 AT 0 
333 HLIN E,E ♦ 1 AT 0*1 
360 E » E ♦ 3 
363 NEXT J 

370 IF ZZ - 1 THEN RETURN 

373 HOME : VTAB 22: INPUT "SE ESATTO SC 
RIVI < OK > "|Z* 

380 IF ZI < > "OK" THEN HOME SE» I! 

GOSUB 933: GOTO 100 

383 IF A » O GOTO 430 

390 COLOR » 6 

393 FOR X * 1 TO A 

400 PRINT CHRS C7) ' 

403 N » U ♦ F 

410 HLIN N,N ♦ 1 AT O 

413 HLIN N,N ♦ 1 AT O ♦ 1 

420 F » F ♦ 3 

423 NEXT X 

430 IF B » O GOTO 470 

433 COLOR » 3 

440 FOR X » 1 TO B 

443 N » U * F 

430 HLIN N P N ♦ 1 AT O 

433 HLIN N,N 1 AT 0*1 

460 F » F ♦ 3 

463 NEXT X 

470 O » O ♦ 3 

473 HOME 

480 IF ZN - 1 THEN RETURN 
483 GOTO 100 

490 PRINT "NON RIESCI A DECIFRARLO, HE! 

493 PRINT S PRINT "BENE, IL MIO CODICE 
ERA "J 

300 FOR J » l TO 3 

303 PRINT " ."I 

310 FOR K » 1 TO 400: NEXT K 

313 NEXT J 

320 PRINT " . " 

323 ZZ » i :m« » c*:o » 37: GOSUB 300 
330 GOTO 763 

333 VTAB 23S HTAB 19: PRINT "NON SI PUÒ 
• ! RIPROVA. " 

340 FOR J » 1 TO 300: NEXT J 

343 RETURN 

330 A » 0:B - O 

333 FOR I » 1 TO R 

360 B ( I ) * VAL ( MIDS (A«,I,iM 

363 C ( I ) » VAL ( MID* (CÌ,I,1U 

370 IF B(I) » C(I> THEN A » A ♦ 1SBCI) 

» 0:C(I> » O 
373 NEXT I 

380 FOR I - 1 TO R: IF CHI » O THEN 61 
O 

383 T - O: FOR L » 1 TO R 
390 IF Ctl) » O THEN 603 
393 IF CU) < > B(L) THEN 603 

600 T - i:B(L> » o:Cd) » o 

603 NEXT LSB » B * T 
610 NEXT I 
613 RETURN 
620 TEXT I HOME 

623 INVERSE : HTAB 12: PRINT " REGOLE D 
EL GIOCO NORMAL 


630 

PRINT 

: PRINT 

633 

PRINT 

"DECIFRA UN CODICE DI ’N’ COL 

ORI’ 



640 

PRINT 


643 

PRINT 

"COMPRESI TRA QUESTI:" 

630 

PRINT 


633 

PRINT 

"VERDE-VIOLA-BIANCO-NERO-ARAN 

CIO 

-BLU E" 


660 

PRINT 

: PRINT "IDENTIFICALI CON LE 

PRIME DUE LETTERE." 

663 

PRINT 

: PRINT "LE MIE RISPOSTE SARA 

NNO 

’BLU * 0* 

BIANCO’:" 

670 

PRINT 

: PRINT "-’BLU’ INDICA UN COL 

ORE 

GIUSTO" 


673 

PRINT 

: PRINT "NELLA POSIZIONE GIUS 

TA. 



680 

PRINT 


683 

PRINT 

•- * BIANCO * INDICA UN COLORE G 

IUSTO" 


690 

PRINT 


693 

PRINT 

"NELLA POSIZIONE SBAGLIATA." 

700 

PRINT 

: PRINT 

703 

INPUT 

"-DEFINISCI IL NUMERO DI COLO 

RI 

(3/6) 

R 


710 IF R > » 3 AND R < » 6 THEN U = R 

«-3 4-2: RETURN 
713 GOTO 620 

720 ZN » l:M« »c*: GOSUB 300 

725 PRINT "CI SEI RIUSCITO IN "iC{" TEN 

TATIVI.“ 

730 IF C < R THEN F* » "LA TUA E * SOLO 
FORTUNA!! ! * 

733 IF C * R THEN F* » “SEI STATO ECCEZ 
IONALE! ! !" 

740 IF C » R ♦ 1 OR C » R ♦ 2 THEN F* = 


"E’ 

UN OTTIMO RISULTATO!" 


745 

IF C » 

R + 3 THEN FS » 

•E’ UN DISCR 

ETO 

RISULTATO." 


730 

IF C » 

R ♦ 4 THEN FS » 

"SEI APPENA 

SUFFICIENTE 

, ESERCITATI!" 


733 

IF C > 

R ♦ 4 THEN FS » 

"SEI SCARSO. 

DEVI ESERCITARTI MOLTO!!!" 


760 

PRINT 

FS 


763 

FOR H 

» 1 TO 1000 : NEXT 

H 

770 

PRINT 

•VUOI RIPROVARE? 

(S/N)": GET 

K* 




773 

IF KS 

=■ "S" THEN 70 


780 

IF KS 

< > "N" THEN 770 


783 

PRINT 

"ALLORA RINUNCI . 

. . " 

790 

IF (C 

< =» M) AND (A* < 

> " R “ ) THE 

N PRINT "PECCATO. . .VOLEVO 

LA RIVINCIT 

A! " : 

PRINT 

: GOTO 803 


793 

PRINT 

"FAI BENE!..." 


800 

PRINT 

"HAI DIMOSTRATO DI ESSERE UNA 


SCHIAPPA!“ 


805 

FOR H * 1 

TO 

1500: NEXT H 

810 

TEXT : HOME : 

NEW 

815 

PRINT 



820 

PRINT "HAI 

SUPERATO IL LIMITE DI 

M| " 

TENTATIVI." 



825 

PRINT "IL 

MIO CODICE ERA "| 

830 

FOR I => 1 

TO 

3: PRINT ". "|: FOR 

» l 

TO 400: NEXT L 

.: NEXT l: PRINT "." 

833 

0 » 37:ZZ = 

■ i: 

MS » C*: GOSUB 300 

840 

FOR H » 1 

TO 

ÌOOO; NEXT H 

845 

GOTO 763 



830 

REM DISEGNA 

LA TAVOLA DEL GIOCO 

835 

GR : HGR 



860 

HCOLOR 

« 3 


865 

FOR H » 3 

TO 

156 STEP 12 

870 

K * H ♦ 9 



875 

FOR A » 6 

TO 

Y STEP 21 

880 

B =• A ♦ 13 



883 

HPLOT A,H 

TO 

B, H 

890 

HPLOT A,K 

TO 

B, K 

893 

NEXT A 



900 

NEXT H 



903 

FOR H » 6 

TO 

Y STEP 21 

910 

K » H ♦ 15 



915 

FOR A = 3 

TO 

156 STEP 12 

920 

B » A ♦ 9 



923 

HPLOT H,A 

TO 

H, B 

930 

HPLOT K,A 

TO 

K, B 

933 

NEXT A 



940 

NEXT H 



945 

HTAB U: VTAB 

20: PRINT "<-CODI! 

SEGRETO" 



950 

RETURN 



933 

COLOR 

0 


960 

FOR J » 1 

TO 

R 

965 

HLIN E,E ♦ 

1 

AT 0 

970 

HLIN E,E ♦ 

1 

AT 0 M 

973 

E » E ♦ 3 



980 

NEXT J 



983 

C = C - 1 : 

RETURN 


ÌOOO GR 

1003 COLOR » 3 
1010 FOR L » 1 TO IO 
1013 GOSUB 1413: GOSUB 1470 
1020 NEXT L 

1023 FOR I » 1 TO 730: NEXT I 
1030 C - 2 

1033 FOR L » l TO 10 
1040 COLOR » O: GOSUB 1413 
1043 IF C » 6 THEN C - 1 
1030 C » C ♦ 1 

1053 IF C » 3 THEN C » C ♦ 1 

1060 COLOR = C: GOSUB 1413: GOSUB 147 

O 

1063 NEXT L 

1070 FOR I » 1 TO ÌOOO! NEXT I 

1073 FOR H » l TO 100 

1080 C » INT < RND (1) * n * l> 

1083 IF C = 3 T^EN C » 5 

1090 L » INT ( RND (1) * 10 ♦ 1) 

1093 COLOR » C: GOSUB 1415 
1100 NEXT H 

1103 COLOR » 3: FOR L » 1 TO 10: GOSU 
B 1415: NEXT L 
1110 Z = 10:C » 2 
1115 FOR K » 1 TO IO 


1120 IF C » 

6 

THEN C 

* 

1 




1123 C » C + 

1 







1130 IF C » 

3 

THEN C 

» 

c 

+ 

1 


1135 L » 0 








1140 FCR H 


1 TO Z 






1143 L » L ♦ 

1 







1150 IF L = 

1 

THEN L 

=» 

o: 

GOTO 1160 

1153 COLOR 


= 3: L =» 

L 

- 

1 

: GOSUB 

1413 

1160 COLOR 


» c : L » 

L 

♦ 

1 

: GOSUB 

1415 

1165 NEXT H 








1170 Z » Z - 

1 







1173 NEXT K 








1130 PRINT 

"PREMI UN 

TASTO 

PER GIOCARE" 


+ 3 AT X + 2: VLIN Y 
VLIN Y,Y «■ 6 AT X + 


: GET A*: RETURN 
1183 REM PLOT MI 
1190 X » 8:Y = 12 

1195 VLIN Y,Y ♦ 6 AT X: VLIN Y ♦ 1,Y ♦ 
2 AT X ♦ 1 
1200 VLIN Y ♦ 2, Y 
♦ 1,Y ♦ 2 AT X ♦ 3: 

4 

1203 
1210 
1213 
1220 
1223 
1230 
1233 
X «■ 

1240 
1243 
1230 
1255 
1260 


RETURN 

REM PLOT M2 
X » 13:Y » 21 
GOSUB 1193: RETURN 
REM PLOT A 
X =* 14:Y » 12 

VLIN Y,Y * 6 AT X: VLIN Y,Y ♦ 6 AT 

2 

PLOT X ♦ 1,Y: PLOT X ♦ 1,Y ♦ 3 
RETURN 
REM PLOT S 
X » 18!Y » 12 

HLIN X,X ♦ 2 AT YS VLIN Y,Y ♦ 3 AT 
X: HLIN X,X > 2 AT Y ♦ 3 
1265 VLIN Y ♦ 3,Y ♦ 6 AT X ♦ 2: HLIN X, 
X ♦ 2 AT Y ♦ 6 
1270 RETURN 
1275 REM PLOT T 
1280 X * 23SY « 12 

1285 VLIN Y,Y ♦ 6 AT X: PLOT X - 1,Y: P 

LOT X + 1,Y 

1290 RETURN 

1295 REM PLOT E 


1300 

X « 26*. Y = 12 







1305 

HLIN X,X ♦ 2 

AT 

Y: HLIN 

X,X 

+ 

1 

AT 

Y «■ 

3: HLIN X,X + 

2 

AT Y ♦ 6 





1310 

VLIN Y + 1,Y 

♦ 

6 AT X: PLOT 

X 

♦ 

1 , 

Y ♦ 3 

1315 

RETURN 


# 





1320 

REM PLOT R 







1325 

X * 30:Y = 12 







1330 

VLIN Y,Y + 6 

AT 

x: VLIN 

Y,Y 

♦ 

3 

AT 

X ♦ 

2 







1335 

VLIN Y ♦ 5,Y 

♦ 

6 AT X + 

2 : 

VLIN 

Y 


♦ 3,Y ♦ 4 AT X ♦ 1 : PLOT X ♦ 1,Y 
1340 RETURN 
1345 REM PLOT I 
1330 X » 19:Y » 21 
1355 VLIN Y,Y ♦ 6 AT X 
1360 RETURN 
1365 REM PLOT N 
1370 X » 21SY * 21 
1375 VLIN Y,Y ♦ 6 

X «■ 3 

1380 VLIN Y ♦ 1,Y ♦ 3 AT X + 1: VLIN Y 

* 3,Y ♦ 3 AT X ♦ 2 
1383 RETURN 

1390 REM PLOT D 
1395 X = 26:Y * 21 


AT X: VLIN Y,Y + 6 AT 


1400 

X + 

1405 

1410 

1415 

1420 

VLIN Y,Y ♦ 6 AT X: VLIN Y, 
l: VLIN Y ♦ 5,Y + 6 AT X + 
VLIN Y ♦ 1,Y + 5 AT X + 2 
RETURN 

REM DISEGNA LETTERA 

IF L = 1 THEN GOSUB 1185: 

Y + 1 AT 

1 

RETURN 

1425 

IF 

L 

- 

2 

THEN 

GOSUB 

1225: 

RETURN 

1430 

IF 

L 

- 

3 

THEN 

GOSUB 

1250: 

RETURN 

1435 

IF 

L 

- 

4 

THEN 

GOSUB 

1275: 

RETURN 

1440 

IF 

L 

- 

5 

THEN 

GOSUB 

1295: 

RETURN 

1445 

IF 

L 

- 

6 

THEN 

GOSUB 

1320: 

RETURN 

1450 

IF 

L 

. 

7 

THEN 

GOSUB 

1210 : 

RETURN 

1455 

IF 

L 

« 

8 

THEN 

GOSUB 

1345 

: RETURN 

1460 

IF 

L 

- 

9 

THEN 

GOSUB 

1365 

: RETURN 

1465 

IF 

L 


IO THEN 

GOSUB 1390: RETURN 


1470 FOR I 
1473 FOR I 


1 TO 100: NEXT i: RETURN 
1 TO 500: NEXT li RETURN 
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OMEGA LANDER 

di Fabio Torti 


Scopo del gioco è quello di riuscire ad 
atterrare su una delle 5 zone pianeggianti 
consumando la minor quantità possibile di 
carburante. 

Se riuscite nell’intento viene assegnato un 
punteggio dipendente dalla velocità di discesa 
(che deve essere minore o uguale a 15 
m/sec), dal carburante rimasto e dalla 
difficoltà della pista. Sono previsti 5 sfondi, 
scelti casualmente, ognuno con 5 piste 
diversificate tra loro dal coefficente di 
difficoltà. 

Se non viene premuto nessun tasto la velocità 


dell’astronave accelera di 10 m/sec. 
DIGITARE: 

«E» per decelerare di 40 m/sec 
«X» per decelerare di 5 m/sec 
«S» per accelerare di 10 m/sec 
«D» per accelerare di 10 m/sec 

L’astronave uscita dal video senza essersi 
schiantata riapparirà dalla parte opposta. 
Se volete cimentarvi nuovamente in un 
atterraggio «morbido» (!!!) digitate il tasto 

«A». 



20/7/1984 

130 COLL CLEAR 
140 CALL SCREENI2) 

150 CALL COLORII,2,1) 

160 CALL COLORII,7,1) 

170 CALL CHAR(35,"OOFFOOFFOOFFOOFF") 
180 CALL COLORO,16,1) 

190 CALL COLORI?,16,1) 

200 CALL COLOR(7,16,1) 


** OMEGA LANDER ** 
FABIO TORTI 
via L.da Vinci 7 
tortona (al) 
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210 

CALL 

COLOR(6,16,1) 

220 

CALL 

COLOR(7,16,1) 

230 

CALL 

COLOR(8,16,1) 

240 

CALL 

CHAR(94,"OOFFOOFFOOFFOOFF") 

250 

CALL 

COLOR (8,11,1) 

260 

FOR I 

= 1 TO 2 

270 

CALL 

SOUND(100,440,5,880,5) 

280 

CALL 

S0UND(100,466,5,932,5) 

290 

NEXT 

I 

300 

CALL 

SOUND(80-0,440,2,880,2) 

310 

PRINT 

:.TAB(6) ; "444" 

320 

PRINT 

TAB(5);“4 4“ 

330 

PRINT 

T A B(4);“# 4 #" 

340 

###' 

PRINT 

TAB(3 );“# » 4 44444444444444 

350 

PRINT 

TAB (3);”» tt 4“ 

360 

PRINT 

TAB(3); "4 4 4 OMEGA LANDE 

370 

PRINT 

TAB (3) ; A 

380 

PRINT 

T A B ( 3 ) ; “ A AA ~ AAAAAAAAAAA '- A 

390 

PRINT 

TAB(4);“ A A A " 

400 

PRINT 

TAB(5);" A 

410 

PRINT 

TAB(6);" AAA " 

420 

PRINT 



430 COLL SOUND(200,392,0,784,0) 

440 CALL SOUND(200,349,0,698,0) 

450 CflLL SOUND(200,330,0,459,0) 

460 CALL SOUND(200,294,0,587,0) 

470 CALL S0UND(800,277,0,554,0) 

480 CALL SQUNDdOOO, 294,0,587,0) 

490 CALL CHAR(97,"7C848AA2A2BA847C") 

500 PRINT TAB(2);CHR*(97);TAB(4)j"COPYRI 
GHT F-T-SOFTWARE”: ! : 

510 PRINT “ PREMI UN TASTO" 

520 CALL KEY(0,K,S) 

530 IF S=0 THEN 520 

540 CALL CLEAR 

550 CAR=400 

560 L = 1 

570 F=1 

580 DIM A(35) 

590 FOR 1=1 TQ 8 
600 CALL COLORII,16,1) 

610 NEXT I 

620 CALL SCREEN(2) 

630 CALL COLOR(16,7,1) 

640 CALL COLOR(13,10,1) 

650 CALL COLOR(14,16,1) 

660 CALL COLOR(12,2,1) 

670 CALL COLOR <15,12,1) 

680 CALL CHAR(152,“FFFFFFFFFFFFFFFF") 

690 CALL CHAR(144,"000405032161637E") 

700 CALL CHAR(140,”0000001") 

710 CALL CHAR(145,"0020AOC08486C6E7") 

720 CALL CHAR(146,"7F3E1F0F3B6559F3") 

730 CALL CHAR(147,"7FF2A2A2A79080C0“) 

740 CALL CHAR(128,"80C0E0E0F8FCFEFF") 

750 CALL CHAR(129,"01030FOF1F1F7FFF") 

760 CALL CHAR(130,“ 8 OCOCOEOEOEOFOF 8 " ) 

770 CALL CHAR(131,“F8FCFCFCFCFEFFFF") 

780 CALL CHAR(132,"01030707070FOFOF"> 

790 CALL CHAR(133,"1F3F7F7F7F7FFFFF“) 

800 CALL CHAR(134,"OOOOOOOOOOOOOÓOF") 

810 CALL CHAR(135,“FFFFFFFFFFFFFFFF") 

820 CALL CLEAR 
830 DIM VA(16) 

840 RANDOMIZE 

850 TER = INT(5*RND)+1 

860 ON TER GOTO 2960,3210,3460,3710,3960 

870 FOR 1=1 TO 32 

880 READ A(I),C 

890 R= <75-A <I))*3 

900 CALL SOUND(R,A(I)*20,2) 

910 GOSUB 2050 
920 NEXT I 

930 CALL HCHAR11,1,86,1) 

940 CALL HCHAR(1,2,96,1) 

950 CALL HCHAR(1,3,76,1) 

960 CALL HCHAR(1,4,61,1) 

970 CALL HCHAR(1,26,67,1) 

980 CALL HCHAR(1,27,65,1) 


990 CALL HCHAR(1,28,82,1) 

1000 CALL HCHAR(1,29,61,1) 

1010 X=16 
1020 Y=i 
1030 W = 0 
1040 Q=X 
1050 D=Y 
1060 T=0 

1070 CALL SCREEN(2) 

1080 VEL=(INT(30*RND)+10)*4 
1090 S=INT(3*RND)-1 
1100 FORZA=0 

1110 CALL SOUND(100,500,3) 

1120 CALL HCHAR(D,Q,127,2> 

1130 CALL HCHAR (D+l, Q, 127,2) 
1140 CALL HCHAR <Y,X,144,1) 

1150 CALL HCHAR(Y,X+1,145,1) 
1160 CALL HCHAR(Y+l,X,147,i) 
1170 CALL HCHAR (Y+1, X +1 , 147,1) 
1180 Q=X 
1190 D=Y 

1200 CALL HCHAR(1,30,32,3) 

1210 CALL HCHAR(1,5,32,3) 

1220 VEL$=STRF(VEL) 

1230 LEN1=LEN(VELI) 

1240 FOR IE=1 TO LENI 
1250 AS=ASC(SEBI(VELI,IE,1)) 
1260 CALL HCHAR(1,IE+4,AS,1) 
1270 NEXT IE 
1280 CAR$=STR$(CAR) 

1290 LEN1=LEN(CAR*) 

1300 FOR XE=1 TO LENI " 

1310 AS*ASC(SEB*(CAR*,IE,1)) 
1320 CALL HCHAR(1,IE+29,AS,1) 
1330 NEXT IE 

1340 ON T+l GOTO 1350,1900 
1350 CALL KEY(3,KEY,STATUS) 

1360 IF KEY=69 THEN 1550 

1370 IF K£Y=88 THEN 1600 

1380 IF KEY=83 THEN 1650 

1390 IF KEY=68 THEN 1700 

1400 VEL=V£L+IO-FORZA 

1410 IF VEL=0 THEN 1750 

1420 IF VEL<0 THEN 1770 

1430 Y=Y+1 

1440 U=10000/VEL 

1450 X=X+S 

1460 FOR K = 1 TO U 

1470 NEXT K 

1480 IF Y<1 THEN 1810 

1490 IF X>31 THEN 4200 

1500 IF X<1 THEN 4220 

1510 IF (Y+1)>=A(X)THEN 1880 

1520 U=X+1 

1530 IF (Y+l)>=A(U)THEN 1880 

1540 GOTO 1100 

1550 IF CAR<40 THEN 1400 

1560 CAR=CAR-40 

1570 F0RZA=40 

1580 CALL SOUND(200,200,3,-8,3) 

1590 GOTO 1400 

1600 IF CAR<5 THEN 1400 

1610 CAR=CAR-5 

1620 F0RZA=5 

1630 CALL SOUND <200,200,2,-8,1) 

1640 GOTO 1400 

1650 IF CARC10 THEN 1400 

1660 CAR=CAR-10 

1670 S=S-1 

1680 CALL SOUND(200,200,2,—8,1> 

1690 GOTO 1400 

1700 IF CAR<5 THEN 1400 

1710 CAR=CAR-10 

1720 S = S + 1 

1730 CALL SOUND(200,200,1,-8,1) 

1740 GOTO 1400 

1750 U=50 

1760 GOTO 1450 

1770 Y=Y-1 

1780 U=-(1OOOO/VEL) 

1790 GOTO 1450 


1800 CALL SOUND(500,200,3) 

1810 GESTORE 4380 
1820 FOR 1=1 TO 32 
1830 READ X 

1840 CALL HCHAR(24,I,X,11 
1850 NEXT I 

1860 CALL SOUND(500,200,3) 

1870 GOTO 2430 
1880 T =1 
1890 GOTO 1100 

1900 ON -((X>VA(1)) + (X<VA(2))) + l GOTO 19 
10,1910,1950 

1910 ON -((X >VA(3)) + (X< VA(4))) + l GOTO 19 
20,1920,1970 

1920 ON -(<X>VA(5))+(X<VA(6)))+1 GOTO 19 
30,1930,1990 

1930 ON -((X > VA(7)) + (X<VA(S)))+1 GOTO 19 
40,1940,2010 

1940 ON -((X>VA<9>) + (X<VA(10))) + l GOTO 3 

2767,2560,2030 

1950 V=VA(11) 

1960 GOTO 2230 
1970 V=VA(12) 

1980 GOTO 2230 
1990 V=VA(13) 

2000 GOTO 2230 
2010 V=VA(14) 

2020 GOTO 2230 
2030 V=VA(15) 

2040 GOTO 2230 

2050 CALL HCHAR (A(I) ,I,C,1) 

2060 Z=0 

2070 IF C=130 THEN 2180 
2080 IF C=133 THEN 2210 
2090 IF A ( I )=24 THEN 2170 
2100 Y=A(I)+1+Z 
2110 IF Y>24 THEN 2170 
2120 CALL VCHARIY,1,131,1) 

2130 C0L=INT(32*RND)+1 

2140 RIG=INT(13*RND)+1 

2150 NU = INT(2*RND) + 1 

2160 CALL HCHAR(RIG,C0L,140,NU) 

2170 RETURN 

2180 CALL HCHAR(A(I)+1,1,131,1) 

2190 Z=1 $ 

2200 GOTO 2100 

2210 CALL HCHAR(A <I)-1,1,132,1) 

2220 GOTO 2100 

2230 IF VEL>15 THEN 2570 

2240 P=INT(((15-VEL)*5+CAR/10)*V) 

2250 GOSUB 4240 

2260 RESTORE 4300 

2270 CALL HCHAR(24,1,32,32) 

2280 FOR 1=1 TO 15 
2290 READ X 

2300 CALL HCHAR(24,1, X , 1 ) 

2.310 NEXT I 

2320 IF P>MAX THEN 4320 
2330 PUNt=STR*(P) 

2340 LEN1=LEN(PUNÌ) 

2350 FOR 1 = 1 T-0 LENI 
2360 AS=ASC(SEG*(PUN*,I,1)) 

2370 CALL HCHAR(24,I+18,AS,1) 

2380 NEXT I 
2390 FOR 1=1 TO 5 
2400 READ X 

2410 CALL HCHAR(24,1+23,X,1) 

2420 NEXT I 
2430 FOR 1=1 TO 4 
2440 READ X 

2450 CALL HCHAR(1,I + 12,X, 1 ) 

2460 NEXT I 

2470 MAX*=STR*(MAX) 

2480 LEN1=LEN(MAX$) 

2490 FOR 1=1 TO LENI 
2500 AS=ASC(SEG$(MAXt,I,l)) 

2510 CALL HCHAR(1,1+16,AS,1) 

2520 NEXT I 

2530 CALL KEY(3,KEY,STATUS) 

2540 IF STATUS=0 THEN 2530 
2550 IF KEY = 65 THEN 540 ELSE 2530 
2560 W=1 
























2570 D = Y 
2580 F=X+1 

2590 CALL COLOR(15,11,7) 

2600 CALL SOUND <1500,110,3,-7,3) 

2610 FOR 0=1 TO 400 
2620 NEXT 0 

2630 CALL HCHAR(Y+1,X,127,2) 

2640 CALL SOUND(3500,-7,0) 

2650 FOR G=1 TO 10 

2660 CALL HCHAR(Y,X,127,1) 

2670 CALL SCREEN(12) 

2680 CALL HCHAR(D,F,127,1) 

2690 X = X — L 
2700 Y=Y-1 
2710 F=F+P 
2720 D = D — 1 

2730 ON -((X >1) + (X <32))+1 GOTO 2890,2890 
,2740 

2740 ON -((F>1)+(F<32))+1 GOTO 2920,2920 
,2750 

2750 CALL SCREEN(2) 

2760 CALL HCHAR(Y,X,144,1) 

2770 CALL HCHAR(D,F,145,1) 

2780 NEXT 8 

2790 IF W=1 THEN 2860 

2800 RESTARE 4340 

2810 CALL HCHAR(24,1,32,32) 

2B20 FOR 1=1 TO 32 
2830 READ X 

2840 CALL HCHAR(24,I,X,11 
2850 NEXT I 

2860 CALL SOUND(500,200,3) 

2870 RESTOSE 4370 

2880 GOTO 2430 

2890 L=0 

2900 X=1 

2910 GOTO 2740 

2920 P=0 

2930 F=32 

2940 GOTO 2750 

2950 REM **** SFONDO 1 ** 

2960 RESTORE 3130 
2970 VA(1 !=2 
2980 VA(2)=4 
2990 VA(3J =8 
3000 VA(4)=10 
3010 VA(5)=15 
3020 VA(6)=18 
3030 VA(7)=23 
3040 VA(8)=25 
3050 VA(9)=28 
3060 VA (10) =30 
3070 VA(11)=4 
3080 VA(12)=4 
3090 VA(13)=1 
2100 VA(14)=2 
3110 VA(15)=3 
3120 GOTO 870 

3130 DATA 16,133,14,129,13,134,13,134,14 
,130 

3140 DATA 16,130,18,130,20,130,21,134,21 
,134 

3150 DATA 21,133,19,134,20,130,22,130 
31 = 0 DATA 24, 128,24,134,24,134,24,134,24 
,133 

Il'O DATA 22,129,21,129,20,129,19,133,17 
,134 

31EC DATA 17, 134,18,130,20,128,21,128 
DATA 21,134,21,134,22,128,23,128 
:: . REM **** SFONDO 2 ** 

33.: RESTORE 3380 
3321 YA(1)=4 
333: ,A(2)=8 
TU: HA(3)=13 
335: . A (4) = 15 
33= 3 VA(5) = 16 
33': .4(61=18 
335. VA(7)=22 
32=; VA(8)=26 
331. *A(9)=30 
33.. .4(101=32 
333. •-'11)=1 


3330 
3340 
3350 
3360 
3370 
3380 
,134 
3390 
, 133 
3400 
3410 
,129 
3420 
,134 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
, 134 
3640 
, 130 
3650 
3660 
, 134 
3670 
, 128 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
, 133 
3890 
,128 
3900 
3910 
, 128 
3920 
,129 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 


VA(12)=3 
VA(13)=2 
VA(14)=1 
VA(15)=4 
GOTO 870 

DATA 17,130,19,130,21,130,23,128,23 
DATA 23,134,23,134,23,134,23,129,22 


DATA 20,129,19,134,20,130,21, 
DATA 21,134,21,133,19,134,19, 


134 

134,19 


DATA 18,129,17,129,16,129,15,134,15 

DATA 15,134,15,134,16,130,18,130 
DATA 20,130,22,130,23,134,23,134 
REM «*** SFONDO 3 ** 

RESTORE 3630 
VA(1)=4 
VA(2)=7 
VA(3)=12 
VA(4)=14 
VA(5)=17 
VA(6)=19 
VA(7)=21 
VA(8)=23 
VA(9)=29 
VA(10)=32 
VA(11)=2 
VA(12)=4 
VA(13)=2 
VA(14)=3 
VA(15)=2 
GOTO 870 

DATA 19,133,17,129,16,129,16,128,16 
DATA 16,134,16,134,17,128,18,130,20 


DATA 22,130,24,128,24,134,24, 
DATA 24,133,22,133,20,133,17, 


134 

134,17 


DATA 18,128,19,130,20,134,20,134,21 

DATA 22,130,23,129,22,129,21,133 
DATA 19,129,18,134,18,134,18,134 
REM ♦*** SFONDO 4 «* 

RESTORE 3880 
VA(1)=0 
VA(2)=3 
VA(3)=6 
VA(4)=8 
VA(5)=11 
VA < 6) = 13 
VA(7)=19 
VA(8)=22 
VA(9)=29 
VA(10)=31 
VA(11)=4 
VA(12)=2 
VA(13)=3 
VA(14)=3 
VA ( 15)=4 
GOTO 870 

DATA 24,134,24,134,24,134,24,133,22 
DATA 20,133,16,134,16,134,17,130,19 


DATA 20,128,20,134,20,134,20, 
DATA 18,133,16,133,14,134,15, 


133 

130,17 


DATA 17,134,17,134,17,134,17,129,16 


DATA 15,129,15,128,16,130,18, 
DATA 19,130,20,134,20,134,20, 
REM **** SFONDO 5 ** 

RESTORE 4130 
VA(1)=3 
VA(2)=8 
VA(3)=12 
VA(4)=15 
VA(5)=17 
VA(6)=22 


128 

133 


40?0 

VA(7)=25 




4040 

VA(8)=27 




4050 

VA(9)=30 




4060 

VA(10)=32 




4070 

VAI 11)=2 




4080 

VA(12)=2 




4090 

VAi13)=1 




4100 

VA(14)=3 




4110 

VA(15)=4 




4120 

GOTO B70 




4130 

DATA 20,130,22 

,130, 

24,128,24,134 

,24 

, 134 





4140 

DATA 24,134,24 

,134, 

24,129,23,129 

,22 

,133 





4150 

DATA 20,133,18 

, 133, 

16,134,16,134 


4160 

DATA 16,134,17 

,128, 

18,128,18,134 

,18 

,134 





4170 

DATA 18,134,18 

,134, 

18,134,19,130 

,21 

,130 





4180 

DATA 23,130,24 

,134, 

24,134,24,133 


4190 

DATA 22,133,20 

,129, 

19,134,19,134 


4200 

X=X-31 




4210 

GOTO 1490 




4220 

X=X+31 




4230 

GOTO 1500 




4240 

CALL SOUND(300 

,290, 

3) 


4250 

CALL SOUND(200 

,264, 

3) 


4260 

CALL SOUND(300 

,310, 

3) 


4270 

CALL SOUND(300 

,310, 

3) 


4280 

CALL SOUND(500 

, 264 , 

3) 


4290 

RETURN 




4300 

DATA 66,82,65, 

86,79 

,44,72,65,73, 

32, 

70,65 




4310 

DATA 84,84,79, 

80,85 

,78,84,73,77, 

65, 

03 

03 





4320 

MAX = P 




4330 

GOTO 2330 




4340 

DATA 83,69,73, 

32,65 

,84,84,69,B2, 

82, 

65, B4 




4350 

DATA 79,32,84, 

82,79 

,80,80,79,32, 

86, 

69,76 




4360 

DATA 79,67,69, 

77,69 

,78,84,69 


4370 

DATA 77,65,88, 

61 



4380 

DATA 72,65,73, 

32,83 

,85,80,69,82, 

65, 

84,79 




4390 

DATA 32,73,76, 

32,76 

,73,77,73,84, 

69, 

32,83 




4400 

DATA 85,80,69, 

82,73 

,79,82,69,77, 

65, 


88,61 



61 





















IL GIOCO DEL LOTTO 

di Elio Girone 



Il programma presentato è composto da due 
parti. 

La prima viene utilizzata per caricare i numeri 
del lotto, relativi A 520 (!!!) settimane; questi, 
una volta «salvati» su nastro saranno utilizzati 
nella seconda parte. 

Se si vuole interrompere l’inserimento dei dati 
si deve digitare alla prima posizione della 
linea dove ci si vuole fermare la parola «alt». 
La seconda parte, il vero e proprio 
programma, consente di operare una 
statistica sui numeri immessi 
precedentemente. 

I risultati ottenuti sono relativi al ritardo ed alla 
frequenza delle combinazioni richieste scelte 


tra quelle di seguito elencate: 

1) ambata 

2) ambo 

3) terno 

4) quaterna 

5) cinquina 

Sono possibili due tipi di verifiche: una 
«normale», l’altra «settorizzata»; si può 
scegliere cioè tra un’analisi relativa a tutti i 
dati immessi o ad un periodo ben definito. 

A loro volta queste ricerche possono essere 
«automatiche» o «manuali», ovvero si può 
avere l’elenco di tutte le combinazioni oppure 
di una in particolare scelta precedentemente. 


62 




























parte 1 


0>REM Programma caricamento d 
ati di ELIO GIRONE 

30 PRINT FLASH 1 ;"ATTENZIONE 
PREGO" 

40 PRINT "Questo programma ser 
ve per caricare i numeri de 

1 lotto rela 

tivi a 520 setti mane,per poi sai 
varli e utilizzarli nel succ 

essivo programma 
di statistica (VER). 

NOTA:Se durante l'in 
serimento dei 

dati vuoi interrompere e salv 
ar 1 i , i nser i sci alt alla priin 

a posizione dell 

a linea in cui intendi fermarti 


45 PRINT #1;"Premi un tasto pe 
r continuare": PAUSE 0 
50 DIM a (520,5) 

55 LET 1=0 
60 G0'T0 210 
00 CLS 
90 LET i=1 
95 PRINT TAB 0;i; 

97 IF i=520 THEN CLS : PRINT 
#lj FLASH lj"ATTENZIONE PREMI UN 
TASTO E INSERIS 

Cl-alt-per finire": BEEP 2,15: P 
AUSE 0 

100 FOR j=l TO 5 
103 REM Aspetta un numero da Oa 
90,oppure un ALT se vuole finire 
105 INPUT "Inserisci i numeri:" 
jN$: IF LEN N*=0 THEN GO TO 105 
107 IF n$(l)="a" THEN GO TO 20 

0 

110 GO SUB 9000: IF FLAG-1 THEN 
GO TO 105 
120 LET ati,j)=NUM 
130 PRINT TAB <6+(j-1)*5)ja<i,j 
^ f 

140 NEXT j 

150 LET i=i+l: IF i<=520 THEN 
GO TO 95 
160 GO TO 210 

200 IF jOl THEN GO TO 105 
205 LET FINE=i: FOR q=i TO 520: 
LET ati,j)=99: NEXT q 
210 IF 1=1 THEN GO TO 40B0 
215 CLS : PRINT "1> MODIFICA DI 
UNA LINEA": PRINT : PRINT "2>VIS 
UALIZZAZIONE DAT 

I": PRINT : PRINT "3)SALVATAGGIO 
DATI SU NASTRO": PRINT : PRINT 
"4)DATI DA RIGHI 

AMARE DAL NASTRO": PRINT : PRINT 
"5)DATI NUOVI DA IMMETTERE" 

220 INPUT z: IF ztl OR z>7 THEN 
GO TO 220 
230 GO SUB Z*1000 
240 GO TO 210 

1000 REM Modifica di una linea 
1010 INPUT "Quale linea vuoi ver 
ificane?";x: IF x>FINE THEN GO 
TO 1010 

1020 CLS : PRINT TAB 0;xj 

1030 FOR j=l TO 5: PRINT TAB (6+ 

( j — 1)*5);a(x,j)! : NEXT j 

1035 REM Accetta un numero fra'i 

11. e il 5.dato oppure una N se 

non si vuole mod 

ificare nulla 

1040 INPUT "QUALE NUMERO VUOI MO 
DIFICARE7-SE NON VUOI MODIFICARE 
NULLA,PREMI n"; 


n$: IF LEN n*=0 THEN GO TO 1040 
1041 IF n*="n" THEN GO TO 1080 
1043 GO SUB 9000: IF FLAG=1 THEN 
GO TO 1040 

1045 LET y=NUM: IF y<1 OR y>5 TH 

EN GO TO 1040 

1050 PRINT FLASH l;a(x,y> 

1060 INPUT "CON QUALE VALORE LO 
VUOI MODIFICARE?";w: IF w<0 OR W 
>90 THEN GO TO 
1060 

1070 LET A(x,y)=w: GO TO 1020 
10B0 INPUT "VUOI RICOMINCIARE AD 
INSERIRE DATI?(S/N)“;s$ 

1085 IF s$=“s" OR s$=“S" THEN L 
ET 1=1 
1090 RETURN 

2000 REM VISUALIZZAZIONE DATI 
2010 INPUT "DA CHE LINEA VUOI VE 
DERE?"ih: IF h >FINE THEN GO TO 
2010 

2020 CLS : LET hl=h+20: IF hl>FI 
NE THEN LET h1=FINE 
2030 FOR I=h TO hi 
2040 PRINT TAB Oji; 

2045 FOR j=l TO 5 
2050 PRINT TAB (6+(j-1)*5); a(i,j 
^ ! 

2055 NEXT j: NEXT i 
2060 INPUT "PREMI ENTER PER CONT 
INUARE IL LISTATO,ALTRIMENTI PRE 
MI n";k$: IF COD 

E k$=0 THEN LET h=hl+l: GO TO 2 
020 

2070 INPUT "VUOI RICOMINCIARE AD 
INSERIRE DATI?(S/N)"; si 
2075 IF s$="s" OR s*="S" THEN L 


ET 1 = 1 
2080 RETURN 

3000 REM SALVATAGGIO DATI SU NA 


STRO 

3010 INPUT "INSERISCI IL NOME DE 
L BLOCCO DATI DA REGISTRARE"; b$ 
3015 CLS : PRINT AT 15,5* FLASH 
li"ASPETTA PREGO" 

3020 LET MEM=59999 

3030 FOR i=l TO 520 

3040 FOR j=l TO 5 

3050 LET NUM=a(i,j >: LET m=(i-l) 

#5 

3060 POKE (MEM+m+j),NUM 
3070 NEXT j 
3080 NEXT i 

3090 CLS : SAVE b*CODE 60000,260 
0 

3100 STOP 

4000 REM DATI DA RICHIAMARE DA 
NASTRO 

4005 CLS : PRINT i FLASH ls"FAI 
PARTIRE IL REGISTRATORE" 

4010 LOAD ""CODE 60000,2600 
4013 CLS : PRINT AT 13,5i FLASH 
li "FERMA IL REGISTRATORE “J PAUSE 
200 


4015 CLS : PRINT AT 15,5; FLASH 
li"ASPETTA PREGO" 

4020 LET MEM=59999 

4030 FOR i=l TO 520 

4040 FOR j=l TO 5 

4050 LET m=(i—1)*5: LET a(i,j)=P 


EEK <MEM+m+j) 

4060 NEXT j 
4070 NEXT i 

4080 CLS : PRINT AT 13,11; FLASH 
li"ASPETTA PREGO": LET 1=0 
4085 FOR v=l TO 520 
4090 IF a(v,1)=99 THEN LET LAST 
=v: LET v=520 
4100 NEXT v 


4110 LET i=LAST: GO TO 95 
5000 CLS : GO TO 90 
9000 LET FLAG=0 
9020 FOR u=l TO LEN n* 

9030 LET k=CODE n$(u>: IF k<48 0 
R k >57 THEN LET FLAG=1 
9040 NEXT u 

9050 IF FLAG=0 THEN LET NUM=VAL 
n$: IF NUMCO OR NUM>90 THEN LE 
T FLAG=1 
9060 RETURN 



0>REM Programma Verifica Comb 
inazioni Lotto di ELIO GIRONE 
1984 

5 PRINT FLASH ^“ATTENZIONE 
PREGO": PRINT : PRINT "Questo pr 
ogramma serve pe 

r fare una statistica sui numeri 
del 1 otto,inserendo blocchi d 
i dati (caricati 
con il programma CAR) di 520 se 
ttimane,i dati ottenuti sono rei 
ativi al ritardo 
ed alla frequenza della 

combinazione richiesta": 
PRINT : PRINT "P 

remi un tasto per continuare": P 
AUSE 0 

10 DIM a(520,5): CLS 
15 LET h=0 

20 GO SUB 70 

21 GO SUB 190 
30 LET h=0 

40 CLS : PRINT FLASH li"VERIF 
ICA": PRINT : PRINT "DAMBATA": 
PRINT : PRINT "2 
)AMBO": PRINT : PRINT "3)TERNO": 

PRINT : PRINT "4)QUATERNA": PRI 
NT : PRINT "5)CI 

NQUINA": PRINT : PRINT "6)1.ESTR 
ATTO" 

50 INPUT b: IF b>6 OR b<l THEN 
GO TO 50 
60 GO TO b*5Q0 

70 CLS : BEEP 1,27: PRINT AT 1 
3,3j FLASH lj"FAI PARTIRE IL REG 
ISTRATORE" 

80 LOAD ""CODE 60000,2600 
90 CLS : PRINT AT 13,5J FLASH 
lj"FERMA IL REGISTRATORE": BEEP 
1,27: PAUSE 15Ò 

100 CLS : PRINT AT 15,5) FLASH 
lj"ASPETTA PREGO" 

110 LET MEM=59999 
120 FOR i=1 TO 520 
130 FOR j=l TO 5 
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140 LET m=(i-1)*5: LET a(i,j)=P 
EEK (MEM+m+j) 

150 NEXT j 
160 NEXT i 
170 RETURN 

180 PRINT AT 15,5j FLASH 1;"ASP 
ETTA PREGO": BEEP .5,15: RETURN 
190 IF h=l THEN CLS : PRINT "P 
REMI S SE VUOI FARE UN'ALTRA VER 
IFICA.-N SE V 

UOI IMMETTERE ALTRI DATI": PAUSE 
0 

193 IF CHR$ PEEK 23556="N" THEN 
LET h=0: GO TO 10 
195 CLS : PRINT "1)VERIFICA NOR 
MALE": PRINT : PRINT "2)VERIFICA 
SETTORI ZZATA" 

200 INPUT w: IF wOl AND w<>2 T 
HEN GO TO 200 
205 LET ni=l: LET ns-520 
210 IF w=l THEN GO TO 250 
220 CLS : PRINT "PERIODO TOTALE 
INSERITO :": PRINT : PRINT "DA 
1 A 520 SETTIMAN 
E" 

230 INPUT "PERIODO DA VERIFICAR 
E: DA: " j ej "A: 11 1 y 
240 LET ni=e: LET ns=y 
250 RETURN 

260 INPUT "DAUTOMATICA—2)MANU 
ALE:";M 

270 IF BOI AND m< >2 THEN GO T 
0 270 

280 RETURN 

300 LET B=(PEEK 23692) 

310 IF B=1 OR B-l+21 THEN PRIN 
T BRIGHT 1;" COMBINAZIONE RITA 
RDO FREQUENZA" 

320 RETURN 

500 REM AMBATA 

510 CLS : GO SUB 300 

520 GO SUB 260 

540 LET h=0 

550 IF m=1 THEN GO TO 610 
560 LET z-0 

570 INPUT "NUMERO DA VERIFICARE 
: " ; nn 

590 LET z*nn 

600 LET h = l: PRINT TAB 12jnni: 
GO TO 630 
610 FOR z=l TO 90 
620 PRINT TAB 12;z; 

630 LET q=0: LET 6=0: LET x-0 
640 FOR i=ni TO ns 
645 LET s=i-q 
650 FOR n=l TO 5 
660 IF a<i,n)-z THEN LET x=x + l 
: LET q=i: PRINT TAB 17; s; 

670 NEXT n 
690 NEXT i 

700 PRINT TAB 25;x;: PRINT : PR 
INT 

705 GO SUB 300 

710 IF h-1 THEN GO TO 730 

715 GO SUB 300 

720 NEXT z 

730 PRINT "SE VUOI CONTINUARE P 
REMI UN TASTO QUALSIASI": P 

AUSE 0: GO TO (2 
0+h ) 

1000 REM AMBO 

1010 CLS : GO SUB 300 

1020 GO SUB 260 

1040 IF m=l THEN GO TO 1110 

1050 LET r=0: LET t=G 

1060 INPUT "COMBINAZIONE DA VERI 

FI CARE" ; -f , g 

1090 LET r-f : LET t=g 

1100 LET h“l : PRINT TAB 9;f;TAB 


12; g ; : GO TO 1140 

1110 FOR r=l TO B9 

1120 FOR t=r+l TO 90 

1130 PRINT TAB 9;r;TAB 12;t; 

1140 LET q=0: LET s=0: LET x»0 

1150 FOR i=ni TO ns: LET c-0 

1155 LET s=i-q 

1160 FOR n=l TO 5 

1170 LET c=c +(a(i,n)=r OR a(i,n) 

=t) 

1180 NEXT n 

1190 IF c =2 THEN LET x=x+l: LET 
q=i: PRINT TAB 17;s; 

1210 NEXT 1 

1220 PRINT TAB 25;x: PRINT 

1225 GO SUB 300 

1230 IF h=l THEN GO TO 730 

1240 NEXT t 

1250 NEXT r 

1280 GO TO 730 

1500 REM TERNO 

1510 CLS : GO SUB 300 

1520 GO SUB 260 

1540 IF m-1 THEN GO TO 1600 

1550 LET r-0: LET t=0: LET u-0 

1560 INPUT "CONBINAZIONE DA VERI 

FICARE";f,g,d 

1570 LET r=f: LET t=g: LET u=d 

1580 LET h = l : PRINT TAB 6;-f;TAB 

9;g;TAB 12;d;: GO TO 1640 

1600 FOR r=l TO 88 

1610 FOR t=r+l TO 89 

1620 FOR u=t+l TO 90 

1630 PRINT TAB 6;r;TAB 9;t;TAB 1 

2;u; 

1640 LET q=0: LET s=0: LET x=0 

1650 FOR i»ni TO ns: LET c=0 

1655 LET s=i—q 

1660 FOR n=1 TO 5 

1670 LET c=c+(a(i,n)=r OR ali ,n) 

“t OR a(i,n)=u) 

1680 NEXT n 

1690 IF c=3 THEN LET x=x+l: LET 
q=i: PRINT TAB 17;s; 

1710 NEXT i 

1720 PRINT TAB 25;x;: PRINT : PR 
INT 

1725 GO SUB 300 

1730 IF h=l THEN GO TO 730 

1740 NEXT u 

1750 NEXT t 

1760 NEXT r 

1790 GO TO 730 

2000 REM QUATERNA 

2010 CLS : GO SUB 300 

2020 GO SUB 260 

2040 IF m=l THEN GO TO 2090 

2050 LET r-0: LET t=0: LET u=0: 

LET v=0 

2060 INPUT "CONBINAZIONE DA VERI 
FI CARE" ; -f , g , d , 1 

2070 LET r=f: LET t=g: LET u=d: 
LET v=l 

2080 LET h“l : PRINT TAB 3;-f;TAB 
6;g;TAB 9;d;TAB 12;1 ; : GO TO 214 
0 

2090 FOR r=l TO 87 

2100 FOR t=r+l TO 88 

2110 FOR u=t+l TO 89 

2120 FOR v=u+l TO 90 

2130 PRINT TAB 3;r;TAB 6;t;TAB 9 

;u;TAB 12;v; 

2140 LET q=0: LET s-0: LET x=0 

2150 FOR i=ni TO ns: LET c=0 

2155 LET s=i—q 

2160 FOR n=l TO 5 

2170 LET c=c+(a(i,n)=r OR a<i,n) 

“t OR a(i,n)=u OR a(i,n)=v) 

2180 NEXT n 


2190 IF c=4 THEN LET x=x+l: LET 
q=i: PRINT TAB 17;s; 

2210 NEXT i 

2220 PRINT TAB 25;::;: PRINT : PR 
INT 

2225 GO SUB 300 

2230 IF h=l THEN GO TO 730 

2240 NEXT v 

2250 NEXT u 

2260 NEXT t 

2270 NEXT r 

2280 GO TO 730 

2500 REM CINQUINA 

2510 CLS : GO SUB 300 

2520 GO SUB 260 

2540 IF m=l THEN GO TO 2590 

2550 LET r=0: LET t=0: LET u=0: 

LET v=0: LET k“0 

2560 INPUT "COMBINAZIONE DAVERIF 
ICA";f,g,d,1,p 

2570 LET r=f: LET t=g: LET u-d : 
LET vii LET k=p 
2580 LET h=l: PRINT TAB 0;f;TAB 
3;g;TAB 6;d;TAB 9;1;TAB 12;p; : G 
0 TO 2650 

2590 FOR r=l TO 86 

2600 FOR t=r+l TO 87 

2610 FOR u=t+l TO 88 

2620 FOR v=u+l TO 89 

2630 FOR k-v+1 TO 90 

2640 PRINT TAB 0;r;TAB 3;t;TAB 6 

;u;TAB 9;v;TAB 12;k; 

2650 LET q-Oi LET s=0: LET x-0 

2660 FOR i=ni TO ns: LET c=0 

2665 LET s=i-q 

2670 FOR n=l TO 5 

2680 LET c=c+(a(i,n)=r OR a(i,n) 

-t OR a(i,n)=u OR a(i,n)=v OR a( 

i , n)“k) 

2690 NEXT n 

2700 IF c=5 THEN LET x=x+l: LET 
q=i: PRINT TAB 17;s; 

2720 NEXT i 

2730 PRINT TAB 25;x;: PRINT : PR 
INT 

2735 GO SUB 300 

2740 IF h=l THEN GO TO 730 

2750 NEXT k 

2760 NEXT v 

2770 NEXT u 

2780 NEXT t 

2790 NEXT r 

2800 GO TO 730 

3000 REM 1.ESTRATTO 

3010 CLS : GO SUB 300 

3020 GO SUB 260 

3040 IF m-1 THEN GO TO 3090 

3050 LET z=0 

3060 INPUT "NUMERO DA VERIFICARE 
: " ; nn 

3070 LET z-nn 

30B0 LET h-1: PRINT TAB 12;nn;: 
GO TO 3110 
3090 FOR z — 1 TO 90 
3100 PRINT TAB 12;z; 

3110 LET q=0: LET s=0: LET x=0 

3120 FOR i-ni TO ns 

3125 LET s=i-q 

3130 FOR n-1 TO 5 

3135 NEXT n 

3140 IF a(i,1)=z THEN LET x=x+l 
: LET q=i: PRINT TAB 17;s; 

3170 NEXT i 

3180 PRINT TAB 25;x;: PRINT : PR 
INT 

3185 GO SUB 300 

3190 IF h=l THEN GO TO 730 

3200 NEXT z 

3210 GO TO 730 
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OLIMPIADI 

- di Filippo Pergola 


Olimpiadi ... TEXANE!!! 

Le gare previste sono i «100 metri» ed il 
«Salto in alto». 


Chi sarà il nuovo Campione del Mondo delle 
specialità? 

Le istruzioni sono contenute nel listato. 



10 REM PROGRAMMA “OLIMPIADI” PER L'HOM 
E COMPUTER TEXAS TI-99/4A 
20 REM creato da: PERGOLA FILIPPO - VI 
A CLAUDIO ASELLO 27 - 00175 ROMA 

30 CALL CLEAR 
40 CALL SCREEN(21 
50 KKZ*3 

60 AA**"h DI FILIPPO PERGOLA 1984 h* 

70 RM$=“RECORD*DEL*MONDO* DI * 

00 CALL CHAR(104,“F") 

90 PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhhhh 

hhhhhhhhhhhhhh 

hhhhhhhhhhhhhh " 11 

100 PRINT "hhh h h h h hhh h hhh hh hh 
h h h hhh hhhhhhhhhhh hhh 
hhh h h h h h h" 

110 PRINT “hhh h h h h h hhh h h hh 
hh hh h h h h h h h hh h"t: ■ 111 ■ t : : 
120 NOTA-110 
130 FOR CW-1 TO 50 

140 CALL S0UND(-200,N0TA,0,N0TA+20,0,N0T 
A+40,0) 

150 NOTA=NOTA+10 
160 KKZ=KKZ+1 

170 IF KKZ >16 THEN 180 ELSE 190 
180 KKZ-3 

190 CALL COLOR(10,KKZ,KKZ) 

200 NEXT CW 

210 CALL SCREEN(10) 

220 FOR GGG-1 TO 28 

230 XZX*ASC(SEG4(AA$,GGG, 1)) 

240 CALL HCHAR(17,2+GGG,XZX) 

250 NEXT GGG 

260 FOR YOU*1 TO 1000 

270 NEXT YOU 

280 PRINT "h PREMI <G> PER GIOCARE h“ 
: : 11 : 

290 PRINT “h PREMI <I> PER ISTRUZIONI h" 
300 CALL KEY(0,K,S) 

310 IF S*0 THEN 300 
320 IF K — 71 THEN 500 
330 IF 1073 THEN 350 
340 GOTO 300 
350 CALL CLEAR 
360 CALL SCREEN(3) 

370 PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhhhh" 
380 PRINT : "h 1 A GIOCO:100 METRI h 

390 PRINT :"PREMI <1> E ATTENDI IL.VERDE 


400 

PRINT 

: "PER LA CORSA PREMI <S> 

820 

CALL 

CHAR(128,"F") 

0 <FIRE> 

RIPETUTAMENTE" 

830 

CALL 

CHAR(152,"BFFFBDBFEDFDEFEF" 

410 

PRINT 

:‘SE PREMI <2> 

840 

CALL 

CHAR(137,“0B094B5F7B77FFFF" 

PASSI AL 

SALTO IN ALTO" 

850 

CALL 

CHAR(138,"00000008089C9EFE" 

420 

PRINT 

:“hhhhhhhhhhhhhhhhhhhhhhhhhhhh 

860 

CALL 

CHAR(139,“101S18383C767AFF" 

" 



870 

CALL 

CHAR(140,"00001010383B78FD" 

430 

PRINT 

: "h 2* GIOCO:SALTO IN ALTO h 

880 

CALL 

CHAR(141, "OOOOOOOOSOCOCOFO" 

■ 



890 

CALL 

CHAR(142,"60B0E8EBE8FCF4FE" 

440 

PRINT 

:"PREMI <2> E ATTENDI IL VERDE 

900 

CALL 

CHAR(144,"0103050911214181" 

" 



910 

CALL 

CHAR(145,"00DCFE3F251201") 

450 

PRINT 

:“PER IL SALTO PREMI <S> 

920 

CALL 

CHAR(146,“0101010101010101“ 

0 <FIRE> 

RIPETUTAMENTE" 

930 

CALL 

CHAR(147|"0102040810204080“ 

460 

PRINT 

:"SE PREMI <1> 

940 

CALL 

CHAR ( 136, "1FFFFFFFFFFFFFFF" 

PASSI AI 

100 METRI" 

950 

CALL 

COLOR(2,2,12) 

470 

PRINT 

:“hhhhhhhhhhhhhhhhhhhhhhhhhhhh 

960 

CALL 

COLOR (3,3,2) 

“ 



970 

CALL 

COLOR(4,3,2) 

480 

FOR PAUSA*! TQ 5000 

980 

CALL 

COLOR(5,3,2) 

490 

NEXT 

PAUSA 

990 

CALL 

COLOR(6,3,2) 

500 

PRINT 

N M 

1000 

CALL 

COLOR(7,3,2) 

510 

INPUT 

* NOME DELL'ATLETA ?"" 

1010 

CALL 

COLOR ( B,16,16) 



": NOME! 

1020 

CALL 

COLORIR,16,6) 

520 

CALL 

CLEAR 

1030 

CALL 

COLOR(10,12,12) 

530 

F*48 


1040 

CALL 

COLOR(11,2,12) 

540 

G*48 


1050 

CALL 

COLOR(12,3,3) 

550 

H*48 


1060 

CALL 

COLOR(13,2,2) 

560 

Z*1 


1070 

CALL 

COLOR(14,9,6) 

570 

VAR*52 

1080 

CALL 

COLOR(15,2,3) 

580 

TEN = 0 


1090 

CALL 

COLOR(16,14,16) 

590 

CALL 

SCREEN(6) 

1100 

FOR 

T * 1 TO 5 

600 

CALL 

CHAR(40,"0060603E3F2E2F45“> 

ino 

CALL 

HCHAR(T,20,128,11 ) 

610 

CALL 

CHAR(41,"1808761D1D3C2211"L. 

1120 

NEXT 

T 

620 

CALL 

CHAR(42,“18081F7D1D7C46C2“) 

1130 

CALL 

HCHAR(2,21,84) 

630 

CALL 

CHAR ( 43,"602070F070EOB090"1 

1140 

CALL 

HCHAR(2,23,48,3) 

640 

CALL 

CHAR(44,"18083F7D5D1C1432") 

1150 

CALL 

HCHAR(4,21,49) 

650 

CALL 

CHAR(45,"FF02DCFE3F255281") 

1160 

CALL 

HCHAR(4,22,48,2) 

660 

CALL 

CHAR(46,"FF006040F2F6FE7B“) 

1170 

CALL 

HCHAR(4,25,77) 

670 

CALL 

CHAR(47,"6040F2F6FEFB00FF" ) 

USO 

CALL 

HCHAR(4,26,69) 

680 

CALL 

CHAR(88,"F"> 

1190 

CALL 

HCHAR(4,27,84) 

690 

CALL 

CHAR(96,‘FF7F3F1FOF070301 " ) 

1200 

CALL 

HCHAR(4,28,82) 

700 

CALL 

CHAR(97,"FFFEFCF8F0E0C08") 

1210 

CALL 

HCHAR(4,29,73) 

710 

CALL 

CHAR(98,"0303030303030303") 

1220 

CALL 

VCHAR(6,22,98,6) 

720 

CALL 

CHAR(104,"F") 

1230 

CALL 

VCHAR(6,27,98,7) 

730 

CALL 

CHAR(112,"0102040810204080") 

1240 

CALL 

HCHAR(3,12,138) 

740 

CALL 

CHAR(113,“FF02040810204000") 

1250 

CALL 

HCHAR(3,13,139) 

750 

CALL 

CHAR (114, “01020408102040FF") 

1260 

CALL 

HCHAR(3,14,140) 

760 

CALL 

CHAR(115,"OOOOOOOOOOOOOOFF" ) 

1270 

CALL 

HCHAR(3,15,141) 

770 

CALL 

CHAR(116,"FF" ) 

1280 

CALL 

HCHAR(4,11,137) 

780 

CALL 

CHAR(117,”0101010101010101") 

1290 

CALL 

HCHAR(4,12,136,3) 

790 

CALL 

CHAR(118,“01010101010101FF") 

1300 

CALL 

HCHAR(4,15,142) 

800 

CALL 

CHAR(119,"FF03050911214181") 

1310 

CALL 

HCHAR(5,10,96) 

810 

CALL 

CHAR(120, “F") 

1320 

CALL 

HCHAR(5,11,88,5) 
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1330 CALL HCHAR(5,16,97) 

1340 CALI HCHAR(6,12,88,3) 

1350 CALL HCHAR<7,9,88,9) 

1360 CALL HCHAR(8,7,88,13) 

1370 CALL HCHAR(9,7,152,13) 

1380 CALL HCHAR(10,6,152,15) 

1390 CALL HCHAR(11,5,152,17) 

1400 FOR 11*12 TO 14 
1410 CALL HCHAR(U,3,88,21) 

1420 NEXT U 
1420 NEXT U 

1430 CALL HCHAR(15,1,88,32) 

1440 CALL HCHAR(13,24,152,9) 

1450 CALL HCHAR(14,24,152,9) 

14&0 CALL VCHAR(13,1,152,2) 

1470 CALL VCHAR(13,2,152,2) 

1480 FOR V«16 TO 24 

1490 CALL HCHAR(V,1,120,32) 

1500 NEXT V 

1510 CALL HCHAR(18,1,116,32) 

1520 CALL HCHAR(19,1,104,32) 

1530 CALL HCHAR(20,1,115,32» 

1540 CALL HCHAR(18,5(113) 

1550 CALL HCHAR(18,32,113) 

1560 CALL HCHAR(19,31,112) 

1570 CALL HCHAR(20,3,114) 

1580 CALL HCHAR(20,30,114) 

1590 CALL HCHAR(14,9,79) 

1600 CALL HCHAR<14,10,761 
1610-CALL HCHAR (14,11 -, 7 3 > 

1620 CALL HCHAR(14,12,77) 

1630 CALL HCHAR(14,13,80) 

1640 CALL HCHAR(14,14,73) 

1650 CALL HCHAR(14,15,65) 

1660 CALL HCHAR(14,16,68) 

1670 CALL HCHAR(14,17,73) 

1680 CALL S0UND<900,147,0,185,0,220,0) 
1690 CALL SOUND<900,220,0,139,0,165,0) 
1700 CALL S0UNDI900,131,0,165,0,196,01 
1710 CALL S0UN0U800,294,0,185,0,220,0) 
1720 R-19 
1730 C*30 

1740 CALL HCHAR(R,C,40) 

1750 REM 

1760 CALL KEY(1,K,S) 

1770 CALL COLOR(14,11,6) 

1780 CALL COLOR(14,9,6) 

1790 IF S*0 THEN 1760 
1800 IF S—1 THEN 1760 
1810 IF K*19 THEN 1840 
1820 IF K*7 THEN 2650 
1830 GOTO 1760 

1840 CALL SOUND <100,1760,10) 

1850 CALL HCHAR(2,29,104) 

1860 FOR X*1 TO 1000 
1870 NEXT X 

1880 CALL SOUND(200,-1,0) 

1890 CALL HCHAR(2,29,120) 

1900 CALL KEY(l,K,S> 

1910 H«H+1 

1920 IF H>57 THEN 1930 ELSE 2000 
1930 H«4B 
1940 S-G+l 

1950 IF G>57 THEN 1960 ELSE 2000 
1960 H«46 
1970 G-48 
1980 F*F+1 

1990 IF F>57 THEN 520 
2000 IF S*0 THEN 1900 
2010 IF S*-l THEN 1900 
2020 IF K*2 THEN 2050 
2030 IF K«18 THEN 2050 
2040 GOTO 1900 
2050 ON Z GOTO 2060,2080 
2060 CALL HCHAR(R,C+1,112) 

2070 GOTO 2090 

2080 CALL HCHAR(R,C+l,104) 

2090 CALL HCHAR<R,C,41) 

2100 CALL HCHAR(R,C,42> 

2110 CALL HCHAR(R,C,43) 

2120 Z*2 
2130 C*C-1 

2140 IF C<3 THEN 2150 ELSE 1900 
2150 CALL SOUND(100,1760,10) 


2160 REM 

2170 IF G<55 THEN 2300 

2180 IF G«55 THEN 2210 

2190 IF G=56 THEN 2240 

2200 IF G«57 THEN 2270 

2210 G=48 

2220 F=F+1 

2230 GOTO 2310 

2240 G*49 

2250 F»F+1 

2260 GOTO 2310 

2270 G«50 

2280 F*F+1 

2290 GOTO 2310 

2300 G«G+3 

2310 CALL HCHAR(2,23,F) 

2320 CALL HCHAR(2,24,G) 

2330 CALL HCHAR(2,25,58) 

2340 CALL HCHAR(2,26,H) 

2350 FOR APP*1 TO 10 
2360 CALL CHAR(152,"BFFF1DBFE8FDC7EF") 
2370 CALL CHAR(152,"BFFFBDBFEDFDEFEF“) 
2380 CALL 80UNDI300, UO, APP + 10,-S, APP + 15 
) 

2390 NEXT APP 

2400 IF F*48 THEN 2410 ELSE 2590 
2410 IF G<*57 THEN 2420 ELSE 2590 
2420 FOR RX*t TO 19 . 

2430 CR»ASC(SEG*(RM*,RX,1>) 

2440 CALL HCHAR(22,6+RX,CR) 

2450 NEXT RX 

2460 FOR RY-1 TO LEN(NOMEI) 

2470 NQM*ASC(SEG$(NQNE$,RY,1)) 

2480 CALL HCHAR(23,6+RY,NOMI 

2490 NEXT RY 

2500 NQTA-440 

2510 FOR TEM*1 TO 20 

2520 CALL SOUND(-10.NOTA,21 

2530 N0TA*N0TA+60 

2540 NEXT TEM 

2550 FOR ER=*1 TO 1000 

2560 NEXT ER 

2570 CALL HCHAR(22,7,120,RX1 
2580 CALL HCHAR(23,7,120,RY1 
2590 CALL HCHAR(19,3,104) 

2600 F=48 

2610 G«48 

2620 H«4B 

2630 Z«1 

2640 GOTO 1720 

2650 CALL HCHAR(17,15,1441 

2660 CALL HCHAR(18,10,113) 

2670 CALL HCHAR(18,14,113) 


(tu 


2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 


CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
SAL-5B 
QUO-1 

CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
CALL HCHAR 
F*48 
G c 48 
H*48 
R«19 
C«30 


(18,15,119) 

(19.9.114) 
(19,10,115,3) 

(19.13.118) 
(19,14,112,2) 

(20.8.118) 
(20,13,118) 

(20.14.114) 
(2,21,128,6) 
(4,21,128,9) 


(2,21,81) 

(2,23,49) 

(2,24,58) 

(2,25,56) 

(2,26,48) 

(4.21.83) 
(4,23,73) 

(4.24.78) 
(4,26,65) 
(4,27,76) 

(4.28.84) 

(4.29.79) 
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3260 GOTO 3120 

3270 ON Z GOTO 3280,3300 

3280 CALL HCHAR(R,C+1,112) 

3290 GOTO 3310 

3300 CALL HCHAR(R,C+l,104) 

3310 CALL HCHAR(R,C,41) 

3320 CALL HCHAR(R,C,42) 

3330 CALL HCHAR(R,C,43) 

3340 Z*2 
3350 C=C-1 

3360 IR C<16 THEN 3370 ELSE 3120 

3370 IF F>48 THEN 3930 

3380 IF G>VAR THEN 3930 

3390 IF H<SAL THEN 3400 ELSE 3930 

3400 CALL HCHAR(19,16,104) 

3410 CALL HCHAR(17,14,145) 

3420 FOR X*1 TO 50 
3430 NEXT X 

3440 CALL SOUND(100,-5,10) 

3450 CALL HCHAR(17,14,120) 

3460 CALL HCHAR(18,12,40) 

3470 CALL SOUND(100,1109,0) 

3480 FOR X*1 TO 100 
3490 NEXT X 
3500 SAL-SAL-1 
3510 Z=1 

3520 FOR APP-1 TO 10 

3530 CALL SOUND(300,110,APP+10,-5,APP+15 
) 

3540 CALL CHAR(152,"BFFF1DBFE8FDC7EF " ) 

3550 CALL CHAR(152,"BFFFBDBFEDFDEFEF" ) 

3560 NEXT APP 

3570 REM 

3580 TEN=TEN+1 

3590 ON QUO GOTO 3600,3620,3650,3670,370 
0,3720,3750,3770,3800,3820,3840,4340 
3600 CALL HCHAR(2,26,53) 

3610 GOTO 3860 

3620 CALL HCHAR(2,25,57) 

3630 CALL HCHAR(2,26,48) 

3640 GOTO 3860 

3650 CALL HCHAR(2,26,53) 

3660 GOTO 3860 

3670 CALL HCHAR(2,23,50) 

3680 CALL HCHAR(2,25,48,2) 

3690 GOTO 3860 

3700 CALL HCHAR(2,26,53) 

3710 GOTO 3860 

3720 CALL HCHAR(2,25,49) 

3730 CALL HCHAR(2,26,48) 


2970 CALL HCHAR(R,C,44) 

2980 CALL KEY(1,K,S) 

2990 CALL COLOR(14,11,6) 

3000 CALL COLOR(14,9,6) 

3010 IF S*0 THEN 2980 
30^0 IF S—1 THEN 2980 
3030 IF K“19 THEN 4170 
3040 IF K»7 THEN 3060 
3050 GOTO 2980 
3060 CALL SOUND(100,1760,10) 

3070 CALL HCHAR(2,29,104) 

3080 FOR X*1 TO 1000 
3090 NEXT X 

3100 CALL SOUND(200,*1,5) 

3110 CALL HCHAR(2,29,120) 

3120 CALL KEY(1,K,S) 

3130 H*H+1 

3140 IF H>57 THEN 3150 ELSE 3220 
3150 H*48 
3160 G-G+l 

3170 IF G>57 THEN 3180 ELSE 3220 
3180 H*48 
3190 G*48 
3200 F=F+1 

3210 IF F-57 THEN 3900 
3220 IF S=0 THEN 3120 
3230 IF S«-l THEN 3120 
3240 IF K*2 THEN 3270 
3250 IF K-18 THEN 3270 

% 


3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

40B0 

4090 

4100 

4110 


GOTO 3860 

CALL HCHAR(2,26,53) 

GOTO 3860 

CALL HCHAR (2,25,50) 

CALL HCHAR(2,26,48) 

GOTO 3860 

CALL HCHAR(2,25,51) 

GOTO 3860 

CALL HCHAR(2,26,53) 

GOTO 3860 

CALL HCHAR(2,25,52) 

CALL HCHAR(2,26,48) 

CALL HCHAR(18,12,116) 
QUO a QUQ+1 

IF QUO-8 THEN 4140 
GOTO 2920 

CALL HCHAR(19,16,104,15) 
CALL SOUND(200,1 10,0) 
GOTO 2920 

CALL HCHAR(19,16,104) 
CALL HCHAR(18,14,45) 

CALL SOUND(100,-6,10) 

FOR X*1 TO 50 
NEXT X 

CALL HCHAR(17,15,146) 
CALL HCHAR(18,14,116) 
CALL HCHAR(19,12,47) 

CALL HCHAR(18,13,113) 
CALL HCHAR(17,14,147) 
CALL SOUNDdOO, 156,0) 

FOR X a l TO 200 
NEXT X 

CALL HCHAR(19,12,115) 
CALL HCHAR(18,13,116) 
CALL HCHAR(17,14,120) 
CALL HCHAR(18,14,113) 
CALL HCHAR(17,15,144) 

Z = 1 


4120 TEN»TEN+1 

4130 GOTO 2920 

4140 VAR=51 

4150 SAL=58 

4160 GOTO 2920 

4170 CALL GCHAR(2,23,NI) 

4180 CALL GCHAR(2,25,N2) 

4190 CALL GCHAR(2,26,N3) 

4200 CALL CLEAR 
4210 CALL SCREEN(2) 

4220 PRINT ;“*)(*)(*)(*)(t)(*)<*)(*)(t)( 

§“ 

4230 PRINT • " 

4240 PRINT "QUOTA NON SUPERATA DA”" 

; NOME* 

4250 PRINT CHR$(N1)j CHRI(58);CHR$(N2);CH 
RI(N3) 

4260 PRINT “ " 

4270 PRINT "TENTATIVI” 

4280 PRINT TEN 
4290 PRINT “ “ 

4300 PRINT |“»)(#)(*)(«)(*)(*)(*)(t)(«)( 

t” ' 

4310 FOR X-l TO 5000 
4320 NEXT X 
4330 GOTO 520 
4340 CALL CLEAR 
4350 CALL SCREEN(2) 

4360 PRINT |”«)(«)(#)(♦)(«11»)(*)(»)(*)( 
*” 

4370 PRINT ” ” 

4380 PRINT "RECORD DEL MONDO DI"" 

|NOME* 

4390 PRINT * • 

4400 PRINT "TENTATIVI” 

4410 PRINT TEN 
4420 PRINT " " 

4430 PRINT | "*)(#)(*)(♦)(*)(*)(*)(*)(»)( 
* " 

4440 CALL SOUND(900,147,0,185,0,220,0) 
4450 CALL SOUND(900,220,0,139,0,165,0) 
4460 CALL SOUND(900,131,0,165,0,196,0) 
4470 CALL SOUND(1800,294,0,185,0,220,0) 
4480 FOR X*1 TO 10000 
4490 NEXT X 
4500 GOTO 520 
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BRUCE 


di Alessandro Farinelli 



Il gioco è stato ideato per il VIC 20 con 
l'aggiunta dell’espansione di memoria da 16K 
e per l’uso del joystick. 

Il programma presentato comprende due 
parti: la prima, oltre a contenere una breve 
presentazione ed il caricamento automatico 
della seconda, serve a creare, per mezzo di 


uno spostamento dell’inizio BASIC, uno 
spazio in cui verranno allocati 69 caratteri in 
HIRES e una routine in linguaggio macchina 
per la musichetta di sottofondo. 

Il programma vero e proprio è nella seconda 
parte. 

Attenzione a digitare correttamente le 
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istruzioni DATA e a dare il RUN solo dopo 
aver «salvato», una dopo l’altra, tutte e due le 
parti su nastro o dischetto. 

Scopo del gioco è quello di guidare il piccolo 
omino nella raccolta di vari oggetti da portare 
poi alla propria donzella. 

Occhio a non urtare i muri, agli ostacoli, ai 
mostri, alle mine e, ... a non tornare dalla 
donzella se non dopo aver raccolto tutti gli 
oggetti contenuti nella scena. 

Superato il quinto livello la conclusione del 
gioco riserva una dolce scenetta con musica 
d'accompagnamento. 

STRUTTURA della prima parte 
^0-25 presentazione 

30-35 spostamento BASIC da 4608 a 6670 
40- caricamento seconda parte 

STRUTTURA della seconda parte 

16- 70 assegnazione dei valori ai vettori 

75- 85 caricamento caratteri e routine in 

L.M. 

190- 198 inizializzazione 
200- 212 routine primo quadro 
300- 314 routine secondo quadro 
400- 414 routine terzo quadro 
500- 514 routine quarto quadro 
600- 616 routine quinto quadro 
700- 750 scenetta finale 
800- 840 fine gioco 
900- 905 controllo musica in L.M. 

1000-1020 disegno primo quadro 
1100-1118 disegno secondo quadro 
1200-1218 disegno terzo quadro 
1300-1318 disegno quarto quadro 
1400-1418 disegno quinto quadro 
1500-1510 esplosione 
1600-1620 prelevamento oggetti 
1700-1720 completamento quadro 
1800-1805 musica a seguito dell’urto contro i 
muri e ostacoli 
1900-1950 musica finale 
3000-3035 istruzioni 
5000-5012 controllo joystick 
5100-5130 controllo primo quadro 
5200-5230 controllo secondo quadro 
5300-5330 controllo terzo quadro 
5400-5430 controllo quarto quadro 
5500-5530 controllo quinto quadro 
9000-9010 discesa schermo 
9100-9110 salita schermo 
9500-9510 controllo e stampa punti e record. 


BRUCE 
R F: O g R Fi m m R 
C Fi R I c: R T O R E 

1 REM***************** 

2 REM* FARINELLI * 

3 REM* & * 

4 REM* CERVELLERfi * 

5 REM*'v'Ifl VALD08S0LA* 

6 REM*N. 28 CAP 40134* 

7 REM* BOLOGNA * 

8 REM* * 

9 REM***************** 

10 PRINT"IT ' :P0KE36865,150 :P0KE36879,42 : G 
OSUB100 

15 F0RP=150TO38STEP-1 : PQKE36865,P:PGKE36 
878, INKP/10) 

20 P0KE36877,281-P:P0KE36875,261-P:HEXTP 
:FORR-0TO200:NEXTR 

25 FORT=0TO126:P0KE36877,253-T : P0KE36875 
, 233-T : NEX'TT 

30 P0KE43,14-P0KE44,26 :P0KE6669,8 :P0KE45 
,16 : P0KE46,26 

35 P0KE47,16'' P0KE48,26 : P0KE49,16: POKE50, 

26 

40 FOLE 193,7: P0KE631,76: P0KE632,207 : F'GKE 
633,13:P0KE634,82 : P0KE635,213:P0KE636,13 

50 END 

100 PRiNr'HMSBr r r r r r >r 

105 PRINT"nak 3 k 3 k 3 k 3 k EST 3 

k STICk " 

110 PRINT'Tia 3k3Sk3k3k3k3k3 

l»k 3 lllk " 

115 PRINT'Tia asrrà. asrak s k 3 k 3 m 

Mk 3 llk " 

120 PRIN'rna 3 k 3 k 3 k S k 3 Wk 

arswk " 

125 PRINT'Tia 3 k 3 k 3 k 3 k 3 k 3 »»lk 
3 miik " 

130 PRINT'Tia 3k3k3k3k3k3k3 

k 3 »r" 

135 PRiNT"nak sy;k swsk. wsr ak sera 
k «erak ssmiak " 

148 PRI NT ' VM' ' 

145 PRINT"FARINELLI & CERVELLERAfiT; 

150 RETURN 


BRUCE 
R R O G R R M M R 
RRIMCIPALE 

0 REM***************** 

1 REM* BRUCE * 

2 REM* BV * 

3 REM* FARINELLI A. * 

4 REM* & * 

5 REM* CERVELLERA S. * 

6 REM*VIA VALD0SS0LA* 

7 REM*N. 28 CAP 40134* 

8 REM* BOLOGNA * 

9 REM* * 

10 REM**************** 

11 PRINT''7^I(!ttIi!M?I»EFERMA IL REGISTRATORE 
!" : P0KE36379,127 

12 WAIT37151,64 
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13 HM=0:RE=0:PU=0:P0KE36979, 110 : PRIHT'TSS 

14 PRIMI",-, I 

Il RTTENHERE PREGO! I'*; 

15 PRINT" I I'■- 


16 BIMAR<7) , A0<7) , RI (3), R2<3) , A3(3), R4<7 
>,A5(7>,A6<7),R7<7), R8 < 2 ), A9 ( 2 ') , EB < 2 ) , B0 

*•. cL ) 

18 BIMBI (2) , B2<2), B3<2>, B4<2> ,B5<2), B6(2 
>,B7 <2 >,VVX(12),CC <7),C0<7 >,C1<5 >,C2<46) 

20 FORW=0TO7^ RERDV•RR(W)=V:HEXT : FORW=0TO 
7 : RERBV : R0 <W)=V : NEXT 

25 F0RW=@T03 : RERBV: RI<W)=V : NEXT:FGRW=0TO 
3 : RERBV : R2 < W)=V : NEXT 

30 FORW=0TO3■RERBV:R3 <W)=V : NEXT:FORW=0TO 
?■■ RERBV :R4(W)='v': NEXT 

35 FORW=0TO7:RERBV:R5(W)=V : NEXT:FORW=8TQ 
7 ■' RERBV ;R6(U)=V: NEXT 

48 FORW=0TQ7 : RERBV : R7< W) =V : NEXT : FORNITO 
2 : RERBV : R8(W)=V : NEXT 

45 FORW=0TO2 : RERBV : A9 < W > =V : NEXT : FQRW=0TQ 
2 : RERBV : EB < 14 ) ®V : NEXT 

50 FORW=0TO2:RERBV : B0<W>=V : NEXT:FORW=0TO 
2 :RERBV:B1(W)=V:NEXT 

55 FORW=0TO2 ■ RERBV : B2 < W ) =V : HEXT : FORNITO 
2 •' RERBV : B3(W)=V : HEXT 

60 FURN=0TO2:RERBV:B4<W>-V:HEXT:FORW»0TO 
2 ■' RERBV : B5 < W ) =V ; NEXT 

65 F0RW=0TQ2■RERBV:B6(W)*V:HEXT : FORW»0TO 
2 : RERBV ^ E7(W)=V:NEXT 

78 FORW=0TO7:RERBV:CC <W)=V:HEXT:FORW=0TQ 
7 : RERBV 1 C0 <W)=V ; HEXT 

75 F0RW=5672T05887:POKEW,PEEKCW+27036):H 
EXT :F0RW=5120TO5671 :RERBV:POKEW,V•HEXT 
80 FORW=0TO5 : RERBV •' C1 < W > =V : HEXT : F0RW*0TO 

46 •• RERBV :C2(W)=V ; NEXT 

85 FORW=6500TO6663:RERBV:POKEW,V :NEXT:FO 
RW=1TO12 :RERBV:VVX <W >=V:NEXT 
90 BEFFNR < S ) = VVX < RSC < MIB* < M , S, 1 ) >-64 ) : B 
EFFNB < S ) «VAL < M1 1)$ < fìt , S, 1 > ) 

100 BRTR4537,4538,4533,4540,4541,4542,45 

43.4544.4527.4528.4529.4538.4531.4532.45 
33,4534 

102 BRTR4342,4364,4386,4408,4222,4245,42 

68.4231.4530.4531.4532.4533.4164.4186.42 
08,4203 

184 BRTR4210,4188,4166,4165,4431,4453,44 
75,4476, 4477,4455,4433,4432,4268,4230,43 
12,4313 

106 BRTR4314,4232,4270,4269,4553,4554,45 

55.4533.4511.4510.4503.4531.4275.4254.42 
33,4434 

108 BRTR4495,4496,4331,4370,4343,4290,42 

69.4248.4486.4465.4444.4230.4208.4186.45 
39,4517 

110 BRTR4435,4570,4549,4528,4509,4510,45 
11,4348,4349 j 4350,4202,4181,4160 

112 BRTR225,215,215,213,215,223,225,0,12 
0,60,68,120,248,120,120,5 

114 BATA24,68,152,126,25,24,40,68,24,68, 
25,126,152,24,20,34,68,66,165,129,102,60 
,36,24 

116 BRTR60,98,126,36,24,60,24,102,129,30 
,60,90,126,36,36,66,60,126,219,147,255,2 
55,255 

118 BRT885,102,102,8,255,102,111,102,68, 
102,102,66,126,102,182,66,102 

113 BATR24,60, 84,254,60,24,8,8,24,24, 1 d'B 


120 BRTR126,24,60,126,36,24,60,24,60,90, 
24,36,66,0,0,0, 16',0,0,0,0,0,65,34,0, 165, 
0,36,66 

122 BRTR16,130,84,0,0,84,130,16,0,0,4,31 
,47,255,255,66,56,68,56,16,1b,24,16,24,1 
2,16,108 

Ì24 BRTH254,254,254,124,56,102,60,24,60, 
102,110,182,68,255,0,170,85,170,86,36,60 
,124,68 

126 BRTR68,68,124,16,84,42,255,213,171,2 
13,171,23,171,255,252,132,43,72,204,252, 
2, 1,0 

128 BRTR16,16,16,56,124,124,56,0,64,32,2 
4,24,4,2,0,8,28,54,23,tì,16,32,32,255,133 
,135,133 

138 BRTR135,133,255,66,126,66,126,66,126 
,86,126,36,255,137,255,231,195,231,255,6 
6,0,124 

132 BRTR56,16,124,32,108,124,81,138,84,5 
2,255,255,126,60,1j2,4,8,16,224,96, 160, 1 
02,60,24 

134 BRTR24,24,60,126,255,0,0,0,0,0,0,0,0 
,24,44,122,110,60,24,24,60,0,0,0,0,0,0,0 
,0,16,9 

136 BRTR35,23,28,28,28,28,60,66, 129,153, 
153,129,66, 60 ,119,119,119,0,238,238,238, 
0 

138 BRTR255,34,34,34,255,68,68,68,255,15 
7,247,127,235,63,238,255,0,0,238,168,236 


140 BRTR200,174,0,0,0,238,138,138,138,23 


8,0,0,0,236,170,234,202,174,0,0,0,29,21, 
29,17,17 

142 BATH0,0,0,85,92,84,84,212,0,0,0,208, 
144,144, 144, 144,0,0,0,77,73,77,73,108,0, 
0,0 

144 BRTR90,82,90,210,155,0,56,108, 198, 19 
8,198,108,56,0,24,120,24,24,24,24,126,0, 

124.198 

146 BRTR6,12,56,96,254,0,124,198,6,28,6, 

198,124,0,28,60,116,230,254,12,12,0,254, 
192,252 

148 BRTR6,6,198,124,0,60,96,192,252,198, 

198,124,0,254,198,12,24,48,96,96,0,124,1 

98.198 

150 BRTR124,198,198,124,0,124,198,198,12 
6,6, 12, 120,0,0,234,142,234,42,234,0,0,0, 
233,170 

151 BRTA236,170,169,0,0,3,3,3,1,1,3, 3, 3, 
184,184,184, 16,16,184,248,184,3,3,7,15,3 


152 BRTR184,184,248,248,16,16,16,176,60, 
126,189,24,24,126,189,189,60,60,60,24,24 
,126,189 

153 BRTR189,60,60,126,255,24,24,24,60,60 
, 60,60,60, 24,24,24, 60 , 54, 127, 127, 127, 62 , 


28,8,0 

154 BRTR215, 

231,229,231, 



C--.J 


cr 


•J ) 

5, 


231,235,231,229, 

183219,207213,21 


9000 


155 BRTR195,207,219,159223,207223,217,20 
7,217,223,183225,207225,219000,287,231,2 
29,231 

156 BRTR223,231,223,228,225,183219,20721 
9,219000,195,207,219,159223,207223,21700 
8,207 

158 BRTR225,223,183219,207219,219000 
160 BRTR25,197,203,208,0,208,0,197,0,197 
,203,208,0,208,0,197,0,197,203,208,0,208 
, 0 -, 211 






















162 DATA0 ,208,208,203,203,203,203,0,0,19 
3/197,203,0,203,0,193,0,193,197,203,0,20 
3,0,193 

164 DATA0,193,197,216,0,216,0,211,211,20 
3,203,197,197,197,197,0,0,50,1,165,197,2 
01,39 


166 DATA208,28,165,197,201,39,240,250,16 
9,61,141,67,3,173,166,25,201,0,240,5,169 
, 0,7 b 

168 DAT A198,25,169,1,141,166,25,173,166, 
25,201,0,208,6,169,0,141,11,144,96,173,6 
7,3,201 


170 DATA63,208,8,169,0,141,67,3,76,232,2 
5,238,67,3,169,101,133,1,169,25,133,2,17 
2,67,3 

172 DATA177,1,141,11,144,96,32,167,25,76 
,14,26,165,162,201,9,176,1,96,233,8,133, 
162,76 

174 DRTA201,25,0,215,219,223,225,228,231 

,232,234,235,237,239,240 

190 'v-36878 : V1 =V-1 '• V2=V~2 : V3=V-3 : V4=V-4 : 

P1=4238 :PD=4194:K=PI :V=33792: 8=1 

192 TE=0 : JJ=37154 : J0=37152 : J1 =37137 : J2=3 

69 : J3-365 : J4=357 ■' J5=245 : J6=127 : J7=255 : LM 

=6655 

194 MK=5 170 :NK-5194 :SU=36881 
196 IFHM=0THEH60SU£9000:GOSUB3000:PU=0■V 


1=3 

198 POKEV,15 ; POKEV-9,205 

200 X=PI : TE=0:P0KE6663,8 :P0KE6658,8 :PRIH 

T:POKEV+1,30 :GOSUB1000■GGSUB9100 :GOSU 


B900 


202 FGRT=0TO7:SVSLM:R=0:POKEX,R : POKEAH <T 
)+V,6 : POKEA0<T> +V,0 :POKEAH<T>,5 :POKEH0<T 
), 5 

204 SVSLM : GOSUB5000 : SVSLM : I FF'EEK< X ) 032T 
HENGOSUB5100:GOSUB9500 


206 SVSLM:R=1:POKEX,R:POKEX+V,0 :SVSLM:IF 
X=Hfl ( T > ORX=A0 <T)THEHGOSUB1500•GOSUB1000 
208 SVSLM: IFTE=2AHDX=PDTHENG0SUB1700 :GOS 
UB9000:GOTO380 

210 SVSLM:POKEAA<T>,32 :POKEA0< T >,32 :HEXT 


212 GOTO202 

300 X=PI :TE=0:P0KE6663,7 :P0KE6658,7 :PRIN 
T'TJ" : POKEV+1,8 : GOSUB 1100 : GGSUB9100 : GOSUB 
900 

302 FORT=0TO3 : SVSLM ■' R=0 : POKEX, R : POKER 1 <T 
)+V,7 : POKEA2< T > + V,7 =P0KEA3<T)+V,7 
304 SVSLM: POKER1(T),4'P0KEA2< T),4 = P0KEH3 
<T),4 = SVSLM:GOSUB5000:SVSLM 
306 IFPEEK<X>O32THENGOSUB5280 : GOSUB9500 
308 SVSLM•R=1 : POKEX,R:POKEX+V,1 :SVSLM:IF 
X=fi1<T >0RX=A2<T )0RX-A3<T >THENGOSUB1500 :G 
OSUB1100 

310 SVSLM: IFTE=3AHDX=PDTHENG0SUB1700 :GOS 
UE9000:GQTQ400 

312 SVSLM^POKER1<T),32 : P0KEA2<T),32 = POKE 
R3(T),32 ; HEXT 
314 GQTO302 

4O0 X=PI :TE=0:P0KE6663,6 :P0KE6658,6'PRIN 
T 1 T3":POKEV+1,204 :GOSUB1200 : G0SUB9100 :GOS 
UE900 

402 FORT=0TO7:SVSLM:R=0:POKEX,R:P0KER4<T 
> +V,0 :P0KER5<T> +V,0 :P0KEA6<T)+V,0 : P0KER7 
< T )+V,0 

404 SVSLM •• P0KEA4<T>, 2 : P0KEA5CT), 2 : P0KER6 
<T >,2•P0KEA7a >,2 :SVSLM:GOSUB5000 : SVSLM 
406 IFPEEK<X)O32THENGOSUB5300:GOSUB9500 


408 SVSLM ; R= 1 : POKEX, R ■' POKEX+V, 0 : SVSLM 

409 IFX=A4<T > 0RX-A5<T >0RX=A6<T >0RX=A7<T) 
THENGOSUB1500 :GOSUB1200 

410 SVSLM I FTE=4RNDX=PBTHEHG0SUB 1700 : GOS 
UB9000 : GOTO500 

412 SVSLM : PQKER4 < T > , 32 •' P0KEA5 < T ), 32 = POKE 
R6<T),32 : POKER?<T>,32 :HEXT 
414 GOT0402 

500 X=PI :TE=0:P0KE6663,5 :P0KE6658,5 :PRIH 
T"3" : PQKEV+1,159:GOSUB1300 :G0SUB9100 :GOS 
UB900 

502 FORT=0TO2 : SVSLM : R=0 : POKEX, R '• P0KEA8 < T 
>+V,6 :PQKER9(T > + V,6 : POKEBB<T >+V,6 :POKEB0 
< T)+V,6 

504 POKEB1<T)+V,6•SVSLM•PUKER8<T ),8■POKE 
A9<T>,8 : POKEBB(T),8 : POKEB0<T),8 :POKEB1<T 
!■ .» 8 

506 SVSLM : GOSUB5000 : SVSLM : I FPEEK <X )032T 
HEHGOSUB5400:GQSUB9500 

508 SVSLM : Rs* 1 : POKEX, R : POKEX+V, 0 : SVSLM 

509 IFX=R8<T )0RX=A9<T)ORX=BB < T)ORX=B0 < T > 
ORX=B1<T>THENGOSUB1500 :GOSUB1300 

510 SVSLM : I FTE=5ANDX=PDTHENG0SUB 1700 : GOS 
UB9000 : GOTO600 

512 SVSLM:P0KER8<T >,32 :P0KEA9<T>,32 :POKE 
BB<T>,32 : P0KEB8<T>,32 :POKEB1<T),32 :HEXT 
514 GOTO502 

600 X=P I : TE=0 P0KE6663, 4 : P0KE6658,4 : PR IN 
T "21" : POKEV+1,171= GOSUB 1400 : GOSUB9100 : GOS 
IIB90O 

602 FORT=0TO2:SVSLM:R=0:POKEX,R:P0KEB2<T 
>+V,6 :P0KEB3< T)+V,6 :P0KEB4< T >+V,6 = SVSLM 
604 P0KEB5<T >+V,6 :P0KEB6<T >+V,6 :POKEB?<T 
>+V,6 :SVSLM:P0KEB2<T>,3 = P0KEB3<T),3 = POKE 
B4<T),3 

606 P0KEB5< T >,3 : P0KEB6<T >,3 :POKEB?< T >,3 : 

SVSLM:GOSUB5000:SVSLM 

608 I FPEEK < X > O32THEHGOSUB5500 : GOSUB9500 

610 SVSLM : R=1 :POKEX,R:POKEX+V,0 :SVSLM 

611 IFX=B2<T)0RX=B3<T >0RX=E4<T >0RX=B5<T) 
0RX=B6<T >0RX=B7<T)THEHGOSUB1500 :GOSUB140 
0 

612 SVSLM: IFTE=6ANDX=PDTHEHG0SUB1700 :GOS 
UBI900 : GO3UB9000 : GOTO700 

614 SVSLM:PQKEB2<T),32=POKEBB<T>,32=POKE 
B4<T >,32 :P0KEB5< T),32 :P0KEB6< T),32 :SVSLM 

616 POKEB?<T),32 : HEXT:GOTO602 
700 POKEV+1,30 : PR I NT 1 T3’ * : VI =V I +1 

705 PRIHT"Sf«-: FOR 

Z-0TO20 : PRIHT ' : H 

EXT 

710 PR I HT-H*‘ ; P0KE4 

601,68 : POKE4601+V,2 :GGSUB9100 
715 P0KE646,IHT <RHD<0)*6 >+2 :PRIHT ' 'aHMMMM 
;MIIK=WI«D?" 

720 FOR2=250TO 150STEP-20 : POKE'v'4, Z : P0KEV2 
,Z:HEXT:P0KEV4,0 :P0KEV2,0 
725 FORZ=1TO150 :HEXTZ 
730 PRIHT''^i!tt>Mi»»Ì>»ÌÌÌÌlli| 

735 FORZ=1TO160 :HEXTZ 

740 PR I HT ' 11 _ ,*/_ 1/ 

: PRI HT ' ,0 'W ' 1 

741 REM##TRSTI SHIFT + D HTRIJQNRJSVH 

D D UWJRH K1 D*#*** 

745 I FPEEK <197)039THEH715 

750 PU=PU+300 : GOSUB9000 : HM=1 : GOTO190 
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800 PQKEV-9,192:HM=0:P0KEV+1,8:FRINT''[T' 

805 PR I NT "3=1--, " i ■ FOR 

Z=0TO20:PRINT" I I"; =N 

EXT 

810 FRI NT ' ' '■-«' ' ; : P0KE4 

601,75:POKE4601+V,1 :G0SUB9100 

814 P0KE646,INT CRND(0)*6 > +1 

815 PRINT"JfflBW*ÌHBRUCE E' TRISTE ! iPBMHUM 
NON SEI STATO CfiPfiCEUilDI AIUTARLO NEL SU 

omii"; 

820 FRINT"INTENTO DI SPOSARE >ÌLA DOLCE 
DONZELLA." 

825 F'RINT''XHWBWUOI RIPRQVRRCI ? " : PRINT'*M 
BSB 0 SNB) "j : U$="" 

830 GETUf: IFU$="S ''GOTO190 

835 I FU$= ' ’N ' 'THENPOKEV+1,26 : PRINT"ZKH"; : E 

HD 

840 GQTQS14 

960 P0KE253,218 : P0KE254,31:P0KE835,U : POK 
E162,0 
905 RETURN 

1000 PRINT"SH+, - O# J raiXXX 

V V V V V V V V "V 

,'*■ f m r'a i n l' a i' ■ i‘ ■ i a/a ( a 

1002 PR I NT l 'KXKKKXZftKlK I 

1 v v v v v v v y y v v v v v y y y y y y y y y y y y y • * 

ii «rii ai irai */ii «Tu n n n ai n il « mi n *i maini il (rii ■ 

• j ■ } • ,• ■ j ■.• • .« ■ 

r » /» r’i »’*■ /■ r’« i* - » t 

y y y y v y y y v y y y y v y y v v y y y y y y v y y y y y y y y v y • * • 

rii u à i ii'ii imi imi ni'ii n n'ai n ii'ii n n n n imi • • ai irai n «i m ai m ai'ai ■ .» 

1006 FRI NT "XXX iKS $ $ IKS ffiKXXXXX 
XS * $ rSKXXXXXX3 $ 1K 3 

fra "; 

1008 PRINT ' 'XXXXXXXiK BKXXX XXX XXXXX 
XX3 f fsftXXXXXXXXv, iK« r a XXXXX IKS f «KXX 

xs 

1010 PRIHT"t BKJi XXXX iKS fra 

XX 3$ aKBl XXXX XXiK KWiX 

XX3 f ", 

1012 print"* iKra XXi Kra mn 

xx mk3 ** fa;xxx"; 

1014 PRINT" XX XXXX «N K?a 

XX31 $ lORKXXX 1K 3$ BK"; 

1016 PRINT''XXXXXXXXX*. / 1 tSKXXXXXXX*"; :RO 
KE4601,37 ■' POKE4601+V, 2 ■' QG=10 : GOSUB9500 
1020 RETURN 

1100 FRI NT "«=)+,- O# J a"" 

////ss//////ss/ss////////// //ss / 


1102 PRINT"' " " " ' 'iiKIKa" " ' SK m "" 

""" ""n $ srca 

s •« • 

1104 PR I NT ' ' / / / / / ' x ////////// 

" BK» ' """"" B* fiK il' iiK 


1106 PRINT"""""" 
Kii """iiK K» 


SK»' ' ,71 

mK »'B| $ 


1108 PRINT "a" ' SK» $ f*»" 

rara 'sk k k w' sisrafBi k a' 

//////**• 

1110 PRINT" '"' rara ' SK» "" 

SK m »"" m fiK a" fiK K K 

•gj/ ///••’ 

1112 PRINT" m »' ' IiK a"" 

sk »" sKia» »""""bk k»" m 

a"; 

H14 print""""" *T fai si" far »" 
, r af SK " " " " •' a(. / 2W ' ' ' '■ ■" ^ ■" a(' ' 


1116 POKE4601/39 :POKE4601+V,4 : OG=20 : GOSU 
B9500 

1118 RETURN 

1200 PRINT"^ 3 +,- O# J Si"" 

/ss//////////ss ss// /ss ssss / 

1202 PRINT" " / a<IKSÌ"" 2 K K i" ■ 
p 3KSK" "" far a"a< a"" "" 

S M ■ 

1204 PRINT" Si" far Si""' '"" 3 K 
K i" 3 K SÌ"" '"" " 3 K 

1206 PRINT "Si”' «QSi " ' 3 K K 

sk sr " " 3K far sr" "•'"""" 

-■ farsi", 

1208 PRINT"-'" 3 K Si" ra$ fa'" 

""SK k a" sk k a" sk rar a" 

rsll* : M > } 

1210 PRINT"'""' ' SK K Si" SK 

w EKsi'EK a'"""" sk «u a' ' ' ra 
f sk"; 

1212 print "a" far w ' sk'ì' 3 Kra$$ 
a" far a" ' " rar $ a' " 

wy * 1 j 

1214 PRINT" ■V a" 3 K K»' ' 'SK 

rara" ' '""" sh: a'"; 

1216 PRINT"' ' " ' " " 3 . / sa' " " " 'SI"; : PO 
KE 4601 , 39 : POKE 4601 +V, 4 : 00 = 30 : GOSUE 9500 
1218 RETURN 

1300 FRI NT " 33 +, - O* J faf-iXXX 

XXXXXXXXXXXXXXXXXXXHK HKaKBK XXXXX 

3 » r*'"; 

1302 PRINT"X BK K WiiKIKISKXXX S»f faXX 
■K 3 f f»J XXIK K SSKX XXXXX XX XXX 

1304 PRIHT-BK !SKX iK 3 $ «KfSK X IK»K 

XX X !K fa'. XXiK iWfSX 

xxxxx"; 

1306 PRINT" 3 $ ra'iK KlXWiXXXXXXX XiV fSK 
XXXXXXXXXXX X X XXiK K «KX ■ 
K fa"; 

1308 - -PR I NT "XXX. XXXX 3 T ffaXXXXXXX X X 

E» faXXiZ BK IKBK XiK WiXXXXXXX 
S»f "; 

1310 PRINT"BK XX X XiC iKSf faXX 3 f fa 


1312 print" ìk raxxsff raxxiK fa' ikrkik 
ra; iKra;x xx x x xìk bkx s$$ 

i • • 

1314 PRINT"iKBKX X iKfaX iK K BRX 3 f iK 3 

$ $$$$ raxx xxxxxxxxx x" 

1316 PRINT'‘XXXXXXXXX3. / 4iaXXXXXXXX3''; : PO 
KE4601,37 :POKE4601+V,2 :GG=40:GOSUB9500 
1318 RETURN 

1400 PRINT"»*,- O* J ITTiXXX 

xxxxxxxxxxxxxxxxxxx *:rir; x x x 


fìK"; 

1402 PRINT"X fiKXaK fiKlKIKSK sK, 7 T'i£ 

BKX X X x»; fiK 5 K 

BKX 

a(K SKaKBl 

XXX"; 

1404 PRINT" XXX XXXXX XX 

ilfiC' 

BK BK X 

«bk xx rar ffiKxx « 

far $$ 

BK XX 

xxxx"; 

1406 PRINT" X aKfaf 

BK XX 

3 K BK 


XXXXX BWaKSK XX X BffSK X it fiK 

xx"; 
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X ra» W. y.*K KfiK \S»W. EK SKXsK iiK 

•/v gj^"* 

1410 PRINT"iiK « SKsK 5KZJÌ XXZJSi XaK Jil 

x skw.x x x *: wrxx x sk bkxsk 
s*KìK"j 

1412 PRINT"B» aK fìKX XXXXXX X 

mak' K SKH XXX aKSKXXXXXXsK KJil 

yy =|£ " ; 

1414 PRINT" m*W. XBKsK liT-i XX 
=K!iJXsK !iK at< K ffiKX W fiKXXXXX a 

‘ rrr ; ■ • j 

1416 FRINT" i# liKXXXXXXXa.X 5 W.XXXXXXX 
XXa:POKE4601,3?:POKE4601+V,7 : 00=50 : GOS 
JB9500 


1418 RETURN 

1500 P0KEV3,0 :F0RZ=240TO128STEP-1 : FOREX, 
12 :PQKEV1,Z: FOREX,13 : NEXT:POREV1,0 
1505 X=P I : TE=0 •' VI=VI-1=IFVI =0THENGOSUB90 
00 :GOTO800 
1510 GOSUB900 ; RETURN 

1600 P0R.EV3,0 : FORZ=0TO5 : P0KEV2,C1<Z) : FOR 
I=0TO55 : NEXT: IFZ=3THENF0RI = 1TO80:NEXTI,Z 
1610 NEXT:FORI=0TO70:NEXT:P0REV2,0 : TE=TE 
+ 1 :PU=PU+OG 
1620 GOSUB900: RETURN 

1700 P0REV3,8 : FORZ=0TO46 : PRI NT 1 'SMumiiil 

• MI imititi :POKENK,0:R0KENK+2, 153 

1705 PORENK+5,24 :P0REV2,C2 <Z >-1000*I NT < C 

2 Z)/100O):PUREV3,INTCC2CZ)/1000) 

1710 PRiHT"@[«!tf!*aaa***»*rst —iiidmi-; : fo 

• ENK,129 :PQRENR+2,24 :PORENR+5,36 :REM#*ST 

=SHIFT+B 

1715 FORZZ=1TO80:HEXTZZ,Z:P0KEV2,0 :POREV 

3 0 : FU=PIJ+1 00 

1 720 UUSUB900 : RETURN 

1500 P0REV3,0 : FORZ=0TQ7 : P0REV2,CC<Z> ■" FOR 
= 1TOC0<Z) : NEXT:P0REV2,0 :NEXT 
1P05 X=PI : TE=0 : GOSUB900 : RETURN 
1900 POREV3,0 : 3=1 :T=0 : POREV,13:FRINT l 'SWM 

^iimiiiiaF ; 

; 905 A$=' 'B8L8C8R7H1F8J414G8G4E418D6C1D1fl 
2E6D1E1D8F4D2F2D8I2D2F2I2B8L8C8R7H1F8J4I 
4G8G4E4" 

1910 A$=A$+"I8D6C1D1R8F4E2F2I8E8I4E4D4D4 
BieiD4D4ClCl" 

1915 II =FNR < S :> ■ JJ=FNR < S+2 > '■ f‘1M=FNB <S+1 ) : N 
N=FHB(S+3)■S=S+4 : K=0 

1920 IFS=115THENP0REV3,0 : P0REV2,0 : GOT019 


40 

1925 PGREMK,0 :POREMR+1,255:F'OKEMK+5, 34 :F 
ORZ=1TONH:P0REV2,JJ:P0REV3, 11 

1926 F0RZZ=1TO50:HEXTZZ,Z 

1930 PQREMK, 153 "• POKEMK+1, 102 : PORENR+5,68 
K=R+HN:IFR=MMTHENT=.2+<II=8QRJJ=0>#0.2 : 
GOT01915 

1935 JJ=FNR(S) : NN=FNB<S+1 > : S=S+2 : T=. 3 : GO 
T01925 

1940 PR I NT ' —UHnaGlìmmi 

-, FORZ=0TO200:POREV+1,251:PQREV+1,25 


1941 REM*"* STRf =SHIFT+B* 

1945 POREV+1,253 :POREV+1,254 :POREV+1,255 

1950 RETURN 

: :--:*o pokev+ i , 26 : porev-9 ,194 : pr i nt "ni" 

2035 PRINT "SI I - t ~ ~ ! «AIUTA 

TUO AMICO I — r~~ R RACCOGLIERE G 


print" oggetti contenuti nelle vari 

£ 2 - -*«ZE CHEDOVRA'" POI PORTARE RL-LR SUR 


3015 PRINT"DONZELLA. ATTENZIONE PER 

0 ' R HONTORNRRE DALLA DONZELLAR MANI VUO 
TE > 11 j 

3020'PRINT" R NON URTARE CONTRO LE MIN 
E,CONTRO GLI OSTACOLI, CONTRO IL MURO E 
FAI "; 

3025 PRINT"ANCHE MOLTA ATTERZIONERI TERR 
IBILI GURRDIANIDEGLI OGGETTI !" 

3030 PRINT"MaùrU"v, - V L I A#l T 
0SUB9100 :WAIT37137,32,32 :GOSUB9000 
3035 RETURN 

5000 POKEJJ,J6:J=PEEK<J1)+PEEK<J0>:POKEX 
, 32 

5002 IFJ=J2THENX=X-22 
5004 IFJ=J3THENX=X+22 
5006 I FJ=.J4THENX=X-1 
5008 IF• J=J5THENX=X+1 
5010 POKEJJ,J7 
5012 RETURN 

5108 IFPEEK<X>=370RPEEK < X > «38QRPEEK< X > =3 

6THENGOSUB1800 : GOSUB1800: RETURN 

5110 IFPEEK<X> = 14GRPEEK<X) = l5THENG0SUB16 

00 

5120 IFPEEK < X>*11ORPEEK<X >=50RPEEK(X)=9T 
HENGOSUB1500 :GOSUB1000 
5130 RETURN 

5200 IFPEEK <X>=360RPEEK<X>=39THENG0SUB 18 
00 :GOSUB1100"RETURN 

5210 IFPEEK <X> = 180RPEEK(X > = 190RPEEKCX >=2 
8THENGOSUB1600 

5220 IFPEEK <X)-90RPEEK<X >=40RPEEK <X > = 11T 
HENGOSUB1500 :GOSUB1100 
5230 RETURN 

5300 IFPEEK <X>=360RPEEK<X>«39THENG0SUB18 
00:GOSUB1200:RETURN 

5310 IFPEEK< X> = 16QRPEEK<X > = 170RPEEK <X >=2 

1ORPEEK <X> =22THENG0SUB1600 

5320 IFPEEK <X>=90RPEEKCX > = 11ORPEEK<X> =2T 

HENGOSUB1500 :GOSUB1200 

5330 RETURN 

5400 IFPEEK(X>«36QRPEEK<X>=37THENG0SUB18 
00:GOSUB1300:RETURN 

5410 IFPEEK<X>=230RPEEKCX>=240RPEEK(X> =2 
50RPEEK<X >=260RPEEK<X>=27THENG0SUB1600 
5420 IFPEEK<X>=90RPEEK <X> = 11ORPEEK< X>=8T 
HENGOSUB1500 :GOSUB1300 
5430 RETURN 

5500 IFPEEK <X>=360RPEEK<X>=37THENG0SUB18 
00:GOSUB1400:RETURN 

5510 IFPEEK < X>«280RPEEK<X>=290RPEEK<X >=3 
0THENGOSUB1600 

5515 IFPEEK <X >=31ORPEEK <X>=330RPEEK(X >=3 
5THENGOSUB1600 

5520 IFPEEK<X)=90RPEEK<X > = 11ORPEEK <X >=3T 
HENGOSUB1500 : GOSUB1400 
5530 RETURN 
9000 PQKEV,15 

9005 F0RZ=38T0155 : POKESU, Z •" P0KEV4, Z+100 : 
P0KEV3,Z+100:NEXT:P0KEV4,0 :P0KEV3,0 
9010 RETURN 
9100 F’OKEV, 15 

9105 FORZ=155T038STEP-1 :POKESU,Z:PQKEV4, 
Z+100 : POKEV3, Z+100 : NEXT : PGKEV4, O ■" P0KEV3, 
0 

9110 RETURN 

9500 IFPU>RETHENRE=PU 

9505 PR I NT 1 '£*i»r "FU 'RE ">»»») 

»a»aa»»»»a»a»»aairvi 

9510 RETURN 
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CONDOMINIO 

di Loris Gerini 



Un programma di sicura utilità. 


«RUN» poi sempre con «GOTO 200». 


MENÙ: 


STRUTTURA DEL PROGRAMMA 


opzione 1 - permette di inserire al massimo 
dieci nomi 


opzione 2 - lista dei nomi 
opzione 3 - viene richiamato il nome nella 
sequenza in cui è stato 
memorizzato: vengono calcolate 
le spese 

opzione 4 - inserimento dei coefficenti 
opzione 5 - lista nomi coefficenti 
opzione 6 - visualizzazione dei totali di ogni 
mese e il totale generale 
opzione 7 - registrazione dei dati su nastro 


Il programma va lanciato la prima volta con 


11 - 116 

500- 660 
1000 - 1140 
1500- 1670 
2000 - 2090 
2500 - 2950 
3000 - 3450 
6000 - 6200 
6500 - 6560 
7000 - 8400 

8500 - 8530 

9010 - 9050 


dimensionamento vettori e 
inizializzazione variabili' 
inserimento nomi 
lista nomi 
ricerca nome 
inserimento coefficenti 
lista nomi coefficenti 
lista nomi e totali 
display menù 
subroutine inserimento 
immissione input per calcolo 
spese 

subroutine inserimento 
coefficenti 
registrazione dati 
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memm 



I REM ************************ 
£ REM ir *■ 

3 REM * GESTIONE CONDOMINIO * 
A. REM * 

5 REM * LORIS CERINI ■* 

e REM * UIO R. UQLTR 8/0 * 

7 REM * FALCONARA MM. (ON) * 
3 REM * * 

■9 REM £*********•£******■•*-*•■*•*■*•* 
10 REM -- -- 


USAI 


04 > PER CONTENERE I NON 

12 REM C4 > PER CONTENERE I COc 
REM T4 >PER CONTENERE I TOT 
REM M$ > PER CONTENERE I MES 
REM fi ( 8,S,C,F,E SONO CONTA? 


13 
AL I 
14- 


1S 
TORI 

1S REM X$jYìjY SONO UARIABILI 
IN INPUT 

17 REM LS.TS^HA^TAC^URLURa, 
UR3 , 

SPESE 


VARIABILI IN INPUT PER LE 


4.0 
50 
©0 
7© 
30 
90 
100 
105 
IO© 

107 

108 

109 

110 
111 
112 
113 
114. 

115 

116 
190 
200 
5©0 
520 
54-0 
560 
5S0 
590 
©00 

523 

64-0 

660 

1000 

1020 

104.0 

3" 
1060 
.363 
1100 
1120 
1 ILO 
1500 
1 o2ó 
1540 


LET 

LET 

LET 

DIM 

DIM 

DIM 

DIM 

LET 


0 = 1 
S = 1 
B = 1 

A$(10,20) 
C4 f72,7) 
T4(120,8) 
M4 (12,7) 


_ M$(l) 

LET *M* (2) 

M 4 ( 3 ) 
M4 (4) 
M$ (5) 
M4 <S) 
M$ £7) 
M4 £5) 
M$ (9) 
M4 C10) 


■£ *GEN* * " 
**FEB**" 

* jtMAR * s " 
**RPR**" 
**MOG**" 

?É" G IU )r 3t- ‘ * 
i*LUG*J" 

* ìfAGO *■ * " 

* iSET “ 
="i*OTT**" 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
CL3 
G05UB 6000 
REM 
CLS 

LET F=0 
GOSUB 650O 
CLS 

LET R—R+l 

PRINT TAB 9;"ANCORA 7 


Mj(11)=”**NOU**" 
M $ (12 3 ="**DICi*" 


(S/NÌ 


INPUT Y $ 
IF Y 4 — " 5 " 
GOTO 203 
REM 
CLS 


THEN GOTO 500 


DÙMTM’I 


PRINT TAB S; ■ • »<BCHEMaBBg»mBilEj 


10 


04 (N) 


:p- NO 


SS 


Y $ 


FOR N=1 TO 
PRINT N;”> 

NEXT N 
PAUSE 400 
GOTO 200 
REM Bggja'ifsSEa 
CLS 

PRINT "BOTTI 
BACARE" 

1560 INPUT 
157C CLS 

_580 FOR N = 1 TO 10 
500 IF fl$£N>(1 TO LEN 
E-. PRINT TAB S.:0$(N) 

_5 20 NEXT N 
_5lO GOSUB 70Q0 
PAUSE 500 
r** QT D O'2i0 

rem wneiGXsmumaBBB aaaBR 

CLS 

LET E=B 
GOSUB 3500 
CLS 

LET B=B + 1 

PRINT TRB 9;"ANCORA ? (S/N) 


IL NOME DO RIC 


Y $ i =Y4 TH 


1650 
1573 
4 330 


^300 
13-0 
105 0 
1055 
1053 


;«3">0 INPUT Y4 

1230 IF Y$="S” THEN GOTO £000 

-3 GOTO 200 _ 

1533 REM 


2510 CLS _ _ , _ 

2520 FOR N = 1 TO 10 


2530 

2340 

2550 

2700 

2710 

2720 

£730 

2740 

2750 

2760 

277© 

2760 

£790 

2600 

231© 

2620 

2930 

2940 

2950 

3000 

3019 

3020 
3025 
3 Si 30 
3040 
3050 
3060 
3070 
3100 


PRINT A5(N), 

GOTO 2730 
NEXT N 
LET C=0 
FOR N=1 TO 63 
PRINT C4(N) 

LET C=C+1 

IF C=7 THEN PRINT 04(2) 

IF C = 14 THEN PRINT 04(3) 

IF 0=21 THEN PRINT 04(4) 

IF C =28 THEN PRINT 04(5) 

IF 0=35 THEN PRINT R$£6) 

IF C =42 THEN PRINT 04 £7) 

IF C =4 9 THEN PRINT 04(6) 

IF C =56 THEN PRINT 04(9) 

Ir 0=63 THEN PRINT 04(10) 

NEXT N 
POU5E 1©00 
GOTO 200 
REM aMsìgatMl 
CLS 

LET C=1 

PRINT “ ";M$!D 

FOR N=1 TG 11 
IF N = 11 THEN LET N=1 
PRINT 04(N); 

GOTO 3100 
NEXT N 

PRINT "£=";T$(C) 


3110 

3111 

LET C=C+1 

IF C=ìl THEN 

PRINT 

3112 

" ; H$ (2) 
IF C=21 

THEN 

PRINT 

3113 

" ; M4 (3) 
XF C =31 

THEN 

PRINT 

3114 

" ; MS (4) 
IF 0=4-1 

THEN 

PRINT 

3115 

" ; Mi (5) 
IF C =5 1 

THEN 

PRINT 

3116 

" ; M4 £6) 
IF C=S1 

THEN 

PRINT 

3117 

" j M4 (7) 
IF 0=71 

THEN 

PRINT 

3118 

” ; MS (8) 
IF 0=81 

THEN 

PRINT 

3119 

MS (9) 
IF 0=91 

THEN 

PRINT 


PRINT " 
PRINT " 
GOTO 3200 


T4 (1) +T$ < 

_ -.) + 

( 1 


TCENTI 


" ; M4 ( 10) 

3120 IF C=101 THEN 

"JMSIll) 

3121 IF C=lll THEN 

”;M4(12) 

3125 IF C = 121 THEN 
3130 GOTO 3070 
320O PAUSE 300 
3210 PRINT 04(1);“ 

11) +T 4 (21) +Tì (31) +T 4 ( 41 ) +T$(511 
T 4 (61) +T$(?lì +T$(81) +T4Ì91) +T 4 
01) +T 4 (111) 

3220 PRINT 04t2);" £ ";T$(2)+T*£ 

12) -t-T 4 ( 22) +T® (32) +T$ (42) +T4 £52) +■ 
T $ ( 62 ) +-T 4 £ 72 ) +T$ £82) +T$!32) +T$il 
©2)+T4(112) 

3230 PRINT A$(3)j" £ ";T$(3)+T$( 

13) +T4 (23) +T$ (33) +T4 £43) +T 4 (53) + 
T$(63) +T4 (73) +T$(83) +T4 (93) -rT 4 C 1 
03)+T4(113) 

3240 PRINT 0 4(4);" £ "JTJ (4.) +T$( 

14) +T 4 (24) +T$ (34) +T$ (44) +T 4 (54) 

T4 (64) +T$ (74) +T4 (S4) +T$ (94) +T4 t 1 
04) +T4 (114) 

3250 PRINT 04(5);" £ ";T4 ( 5) +T4< 

15) +T 4 (£5) +T4 (35) +T$ (45) +T4 £55) + 
T 4 (65) +T 4 £75) +T4 £85) +T$ £95) +T 4 £ 1 
5) +T4 £115) 

3260 PRINT 04£6);" £ ";T4 £6) +T4 ( 

16) +T4 £26) +T4 (36) +T 4 (46) +T 4 (56) 4 
T4 (66) +T4 (76) +T$ (86) +T$ (96) +Ts < X 

06) t-T4 (116) 

3270 PRINT 04(7);" £ ";T*(7)+7*( 

17) +T$ (27) +T4 (37) +T$ (47) +T4 £57) 4 
T $ ( 67 ) +T 4 £ 77 ) +T $ £ 87 ) +T 4 £ 97 ) +T $ C 1 
67)tT4(117) 

3280 PRINT fl$(S);" £ ";T*(8)+TÌ( 

18) +T$ (28) +T4 (38) +T4 (48) +T4 (58) + 
T 4 £68) +T 4 £78) +T$ (88) +T$ (98) +T4 < 1 
08) +T4 ( 118) 

3290 PRINT 04(9);” £ ";T$(9)+T4( 

19) +T4 (29) +T$ (39) +T$ (49) +T4 £59) -r 
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T$ (69) +T$ (79) +T$(69) +T$ (99) +T$ (1 
09) tT$ (119) 

3300 PRINT R*f (IO) ; T $ ( 10 ) +T 

rii (28) +T£ t30) +T$(40) +T$ (SO) +T$ (60 


ISTRflZIONE 


)+T$(70)+T$(30)+T*( 
«S (110) +T$ ( 120) 

3340 PAUSE 500 
3350 GOTO 20© 

3500 REM Et_ 

35ÌS GOTO 9030 
6000 REM * *00=12111** 
6010 CLS 

6020 PRINT TRE 10;" 
S025 PRINT fiT 2,0;" 
ZIONE CONDOMINI***" 
6030 PRINT RT 4,0," 
O NOME" 

6040 PRINT RT 6,0;" 
OMINI" 

6050 PRINT RT 8,0;" 
ME E CALCOLO SPESE 
606© PRINT RT 10,0; 
TO CQEFFICENTI" 

6070 PRINT RT 12,0; 
FFICENTI" 

6080 PRINT RT 14,0; 
6090 PRINT RT 16,0; 
IONE" 

610© PRINT RT 20,14 
6110 INPUT Y 
6120 GOTO Y *500 
6200 RETURN 
5500 PRINT "BATTI I 
PIRE MAX.10" 

6510 PRINT RT 3,29; 
6520 INPUT X$ 

6540 LET R $ (F) =X$ 

6560 RETURN 

7000 PRINT "- 


90) +T$ ( 100) +T 


**BS2H**“ 

* * *AMMINISTRR 

1> INSERIMENT 

2 > LISTA CONO 

3 > RICERCA NO 

"4 > INSERIMEN 

"5 > LISTA COE 

"6 > TOTALI " 

"7 > REGISTRHZ 

; " ESBaSBia " 

NOMI DA INSE 
(11-fì) 


7010 POR N = 1 TO 19 

7020 PRINT "+• 

+ " 

7330 NEXT N 

7040 PRINT "- 


7045 

PRINT 

RT 

1 ,6; " 

ELENCO 

SPESE" 

, 0C30 

PRINT 

RT 

20,8; 

"BATTI 

MESE" 

7060 

7062 

INPUT 

PRINT 

Y$ 

RT 

1,19; 

Y$ 


7©65 

PRINT 

.. il 

RT 

3,1;" 

> LUCE 

SCALE 

7070 

PRINT 

RT 

20,8; 

"BATTI 

COEFF 

7080 

7090 

O" 

7100 

7110 

INPUT 

PRINT 

CF 

RT 

20,8; 

“BATTI 

IMPORT 

INPUT LS 

LET LS=LSX10O0*CF 


7120 

PRINT 

RT 

3,23; 

LS 


7130 

PRINT 

fl T 

4 , l; " 

> PULIZIA SCA 

LE 

7140 

PR INT 

RT 

20 , 8 ; 

"BATTI 

COEFF 


7350 

* t 

PRINT 

RT 

20,8; 

“BATTI 

COEFF 

7360 

737© 

O" 

738© 
7398 
7408 
741© 

INPUT 

PRINT 

CF 

RT 

20,8; 

"BATTI 

IMPORT 

INPUT URI 

LET UR1=UR1X1000*CF 
PRINT RT 7,23;URI 
PRINT RT 8,1;"> UfiRIE 

2 

742© 

PRINT 

RT 

20,8; 

"BATTI 

COEFF 


7430 INPUT CF 

7440 PRINT RT 20,8;"BATTI IMPORT 

O" 

7450 INPUT UR2 

7460 LET UR2=UR2/1O00*CF 


7478 

7480 

PRINT 
PR INT 

RT 

RT 

8, 
9 , 

23; 
l; " 

UR2 

> UARIE 

3 

7498 

PRINT 

RT 

20 

,s; 

"BATTI 

COEFF 

7500 

751© 

INPUT 

PRINT 

CF 

RT 

20 

, 8; 

"BATTI 

IMPORT 


O 


7520 INPUT UR3 _ 

7530 LET UR3 =UR3/1000 *CF 

7540 PRINT RT 9,23;UR3 

7550 PRINT RT 13,1;"> AcuGNTO 

7560 PRINT RT 20,8;"BRTTI IMPORT 

O" 

7570 INPUT RC 

7580 PRINT RT 13,22;"-"; AC 

7800 PRINT RT 17,23;"- 

7810 PRINT RT 18,1;"> TOTALI 

. il 

7820 LET TOT=aS+PS+Mfi+RI+URl+UR 
2+UR3-AC) 

7S30 PRINT RT 18,23;TOT 
7850 PRINT RT 20,5;"PER STAMPARE 
PPFMT C" 

7860 IF INKEV$="" THEN GOTO 7860 
7870 IF INKEY$="C" THEN COPY 
7880 LET T$(S)=STR$,(TOT) 

7900 LET S=S+1 
8400 GOTO 2©0 

8500 PRINT "INSERISCI I COEFFICE 
NT 1“ 

8510 INPUT X$ 

3520 LET C*(E) =X$ 

8530 RETURN 
9000 CLS 

9010 PRINT "MONTA IL NRSTRO E RU 
UIR IL REGISTRATORE" 

902© PRINT 

9030 PRINT "QUANDO SEI PRONTO PR 

9040 U IF T INKEY*="" THEN GOTO 9040 
9050 SAUE "CONDOMINI®" 

9060 GOTO 200 


7150 

INPUT 

CF 




7160 

n »« 

PRINT 

RT 

20, S ; 

"BATTI 

IMPORT 

7170 

INPUT 

PS 




7130 

LET PS 

.=PS^1000*CF 


7198 

PRINT 

RT 

4,23; 

PS 


720© 

PRINT 

RT 

5,1;" 

> MANUT 

. ASCE 

NSORE =” 





7210 

PRINT 

fl T 

20,8; 

"BATTI 

COEFF 

7228 

INPUT 

CF 




7230 

n *• 

PRINT 

RT 

20,8; 

"BATTI 

IMPORT 

7240 

INPUT 

MR 




725© 

LET MR 

l=MA/100S *C-F 


7260 

PRINT 

RT 

5,23; 

MR 


7270 

PRINT 

RT 

6, l; " 

> RISCRLDAMEN 

TO 

_ Il 





7280 

PRINT 

RT 

c‘0 j 8 S 

"BATTI 

COEFF 

7290 

INPUT 

CF 




7300 
ri m 

PRINT 

RT 

20,8; 

"BATTI 

IMPORT 

7310 

INPUT 

RI 




7320 

LET RI 

:=RI/1000*CF 


7330 

PRINT 

RT 

6,23; 

RI 


7340 

PRINT 

RT 

7,1;" 

> URRIE 

1 
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EASY SPRITE permette di creare facilmente 
e velocemente i propri sprites. 

Dopo la presentazione, durante la quale viene 
effettuata la lettura dei dati relativi alle 
routines in linguaggio macchina, si passa, 
premendo un tasto, al primo MENÙ (menù 
principale). 

Scegliendo l’opzione 1 o l’opzione 2 si passa 
ad un secondo MENÙ con il quale è possibile 
a selezione di diverse funzioni tra cui: 

1 EDITOR - in questa fase appare sulla 
s nistra dello schermo una griglia composta 
za 24 x 21 quadretti (per lo sprite normale) o 
za 12 x 21 rettangoli (per lo sprite multicolor) 
'acchiusi in una cornice. Con il Joystick 
“serito nella porta 1 oppure con l’uso dei tasti 
1 =su), <- (=giu), CTRL (=sinistra), 2 
= Destra) si sposta una freccetta sull’opzione 
pe s de rata. 

r posizione PLOT o ERASE o COLORE 
:_est ultima solo nel caso dello sprite 
--Dcoior) la pressione del tasto FIRE (o della 
:a~a soaziatrice) cede al controllo del 
. lysbck o dei tasti sopra elencati) il cursore 
: ‘e arcare sul rettangolo in alto a sinistra 
De a griglia. 

- z.ar.z punto avviene la creazione vera e 
: : : ' = :e o sprite: premendo FIRE si può 

: e “«Pere (PLOT e COLORE 1, 2, 3 
' : a~ente per lo sprite normale e per lo 

t color o spegnere i punti dello 
sere ERASE). 

i sezione del colore e nel caso dello 
*orr~ —ale occorre premere il tasto FIRE 

- - ■ a ~e caso di sprite multicolor si deve 


spostare lateralmente la leva del joystick. Per 
uscire dalla griglia basta spostare il cursore 
sulla cornice. 

6) ROTAZIONE - esegue la rotazione dello 
sprite attorno l’asse perpendicolare dello 
schermo. Per non perdere la definizione dello 
sprite ruotato, nel caso sia di tipo multicolor, 
in fase di editor è opportuno dimezzare la 
risoluzione verticale: a questo scopo sono 
presenti sulla griglia delle tacche di 
riferimento. 

Lo sprite ruotato, a causa delle inevitabili 
approssimazioni di calcolo, non sarà perfetto 
perciò, con un ulteriore menù, si può tornare 
in fase di EDITOR per correggerlo. Si può 
anche salvarne i dati per procedere poi ad 
un’altra rotazione dello sprite originale, oppure 
ripristinare quest’ultimo. 

Le opzioni 2, 3, 4, 5, 7, 8, 9, 10, 11, 12 sono 
certamente di più immediata comprensione. 
EASY DATA è una piccola routine da digitare 
in coda al programma al quale si vogliono 
aggiungere i dati elaborati e «salvati» su 
nastro o disco da EASY SPRITE: facilita il 
trasferimento da FILE a righe di DATA. 

PROCEDURA DA SEGUIRE: 

— digitare il programma 

— dare RUN 63000 

— inserire il nome con cui è stato salvato lo 
sprite e il numero relativo alla periferica 
usata (1 =nastro, 8=disco) 

— inserire il numero di partenza delle righe di 
DATA che verrà poi automaticamente 
incrementato di 10 per ogni riga 
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— ripetere la procedura «RUN 63000» nel 
caso si vogliano aggiungere altri sprites, 
avendo l’accortezza di inserire un nuovo 
numero di partenza delle righe di DATA. 
ROUTINE IN L.M. 


51200-51519 
51520-51660 
49410-49608 
49154-49320 
49321-49374 
49668-49745 
49746-49831 
50177-50305 

50432-50605 

50606-50632 

50688-50837 

50944-51089 


musica 

animazione sprite 
rotazione cornice 
gestione joystick sprite normale 
specchio sprite normale 
trasferimento schermo a dati 
trasferimento dati a schermo 
cambio colori dello schermo 
(sprite multicolor) 
gestione joystick sprite 
multicolor. 

specchio sprite multicolor 
trasferimento dati a schermo 
sprite multicolor 
trasferimento schermo a dati 
sprite multicolor 


N.B. Per interrompere l’esecuzione del brano 
musicale nel caso venga fermato il 
programma, premere RUN/STOP+RESTORE 
oppure digitare POKE 49912,0 


STRUTTURA PROGRAMMA 


27- 

215- 

441- 455 

495- 515 

530- 540 

590- 596 
616- 

700- 770 


2000-2145 

3045-3050 

4025- 


POKE 56333,3 disabilita l’interrupt 
POKE VR+21,0 spegne tutti gli 
sprites 

memorizzazione nella matrice A% 
dei bit che compongono lo sprite 
approssimazione delle righe e 
colonne calcolate 
trasferimento dei dati dalla 
matrice S% al Buffer cassette 
ripristino dello sprite originale 
riporta i puntatori della routine di 
interrupt al loro valore originale 
i dati dello sprite vengono 
codificati su una stringa per 
essere salvati. All’inizio di tale 
stringa vengono messi nell’ordine: 
il valore di M, CI, C2 e CS 
analoghe alle 439-585 
(analoghe a 3145-3150 e 
3245-3250) posizionamento dei 
puntatori per l’esecuzione dei 
brani 1, 2, 3 rispettivamente 
inizializzazione routine in 
linguaggio macchina per 
l’animazione dello sprite 


VARIABILI USATE 

VR = VIC REGISTER 

C = locazione primo byte color 

ram-1024 

V = locazione primo byte memoria 

dello schermo 

MU = brano musicale selezionato 

A%(20,23) 

e 

S%(20,23) = matrici nelle quali vengono 

memorizzati i bit componenti lo 
sprite in fase di rotazione 
CI ,C2,CS = colori dello sprite; nel caso lo 
sprite sia normale viene 
utilizzata solo CS 

M = tipo di sprite (1 =normale 

2=sprite multicolor). 


Eas v sRR I 1 EE 


10 REM "■ * ' ' •' -■ '■ -■ '• ■- '■ •' •• •" •' •- ■■■ ••• '■ "• •" -• ' ••• 

11 REM' i—i ,•—-, ,•—•.t t ,■ — -, 1 — -,-i — -,t mi—"i ' 

12 REM ' H I—I '■—, L ~r J '■—-, hy‘ h-' 1 I I IH 

13 REM'’ J — IJ - -*■ v —•' - 1 - '•—-‘- 1 - -j- '_j-L. a. j i f 

14 REM'--•" 

15 REM •" •" •' '■ •' •' •' •' ■' •' •' ■- •" '• ■" •" ■" •" ■" •" ■" •" •" •" ■" 

16 REM********************************* 


17 REM* * 

13 REM* MAURIZIO & STEFANO MORETTO * 

13 REM* * 

20 REM* V. SRLV0RE H.11 MESTRE (VE) * 

21 REM* * 

22 REM* C.A.P.30174 * 

23 REM* * 


24 REM********************************* 

25 P0KE51 -■ 102 : P0KE55 .• 102 : P0KE52, 158 '■ POKE 
56,158 : REM*SP0STAMENT0 FINE AREA BASIC* 

26 POKE53280,11:P0KE53281,7 :V=1024 :C-542 
72 : VR-53248 : D I MAX ( 20,23 ), SX < 20,23 > 

27 MU=1 : P0KE56333,3 

28 PRINT 2£lPM»MPMtìi?IsMi!*»l>W|i|||o»tti«WÌlHTTENriE 
•RE PREGO. . . '' 


29 FORX=51200T051660 : REAMI : POKEX, B : NEXT •’ 
F0RX=51712T052926 : READB:P0KEX,D : NEXT 

30 G0SUB3338 : G0SUB2997 

35 F0RX=40574T04O957 : READB •’ P0KEX, D : NEXT 
37 F0RX=4941OT049608 •' READB : PQKEX, B : NEXT : 
F0RX=49154T049374 •' READB : POKEX, D : NEXT 
33 F0RX=49668T049331 :READB:POKEX,D:NEXT: 
FORX=50177TO50305:READB:POKEX,D:NEXT ' 

39 POKE V R+2 7,0 
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40 FORX-50432T050632 = READD : POKEX,D•HEXT: 
FORX=50688TO50837 : READD : POKEX.. B ; HEXT 

41 IFPEEK < 52991 > O0THEN41 

42 F0RX=50944TO51083 :READD : POKEX,D : NEXT: 
GOSUE'918 : GOT020000 

43 REM ******************************** 

44 REM * SUBROUTINE -PRESENTAZIONE- * 

45 REM ******************************** 

46 PRI NT ■’ iH*EflSV-SPR I TE*#lìFREM I UN TASTO 
■**EflSV-SPRIT'; 

47 PRIHT-■* 

48 prinT’"*e m :r /a ir 

ir /r /miiiiiiiyiiiiitiiB:*"'.; 


ir 


49 priht-t ma 

a m am 

ti 

m 

am 


* a a m m m * 


" J 




50 PRIHT"I SRI 

bit am 

a 

m 

am 


mr am ■ m u 


’’ ,i 




55 priht-r sera 

a » am » 

m 

u 

“ am 

tu 

a am h m 


HA . 




68 priht-'p am 

h/ /■ am «, 

■'Ti 

u 

“ za 

li 

/ /» am ixm 

i SU»*»#*»»»»»", 




65 F'RIHT- S sa 

m 5* am 

tei 

m 

am 


» s am m m 






78 PRIHT-* am 

«Br sa 

Ut 

BS 

am 


■ i am m 





75 PRIHT"V am 

u *§ am y 

m 

tt 

m 

am 

a m am a 

■n i filiti tu B » WBItS' 

.* 




80 F'RIHT-'S am 

«/ /a am ih 

m 

B 

* ir 

m 

g i ir m u 


j 




85 PRIHT-'A am 

i ** am b 

m 

U 

a :jm 


■ a ani u 


' 





mr am «urani “air an 


r*'. 
I I 


I I 


I I I 


I I I 


30 PEI NT-E sili 

mtr am 

95 PRIHT'"* 

T-3 

108 F'R I NT " * _ al— 

-i i- ih E-"; 

105 PR I NT mCi al I 
Il li *"'J 

110 F‘R I NT ■"!TJT 4 I 

_j| ,- J n 

115 PRIHT"TÌISal I 
I L -1 fflP'; 

120 PR I NT •' fi al 
I I TP/i 
125 PRIHT": Tal r~ 
i i— 1 fTE - ; 

130 PRIHT-' al I 

I i- ( 171.1 ■■ ; 

135 PRIHT-Hai I 

I I mi •' ; 

140 PRIHT "Usi '•-‘ L - J L - J *- J 1 L ~ J 

1 - 1 m •' ; 

145 PRIHT" 

IJ'i 

150 PRI NT ■" IMERPi+*ET I RPS-VSAE**ET IRPS-VS 
AE**mOTSATW.«j'- : POKE2023, 14 •' P0KE56295, 7 
155 REM SVS43410=ROTAZIOHE CORNICE 
160 SVS49410 : F GRX= 1T0.100 : HEXT 
165 GEThT: IFflf=""THEH160 
170 RETURN 

175 REM ******************************* 
ISO REM *SUBROUTIHE-EBITOR-SPRITE HORM* 

.35 REM ******************************* 

2 1 5 PQKEVR+21,0: PR I NT " [".Eia 


220 FORX= 1T021 : PRI NT " S 
111 i 111 i im a « : NEXT 
225 PRIHT " a 

■ SVS43746: REM SUB.L.M.STAMPA SPRI TE 

230 P0KE49152,50 ; REM RITARDO VELOCITA" C 

IJRSORE 

235 P0KE43153,250 : REM RITARDO PRIMO SPOS 
TAMENTO CURSORE 

240 K=1 : PQKEV+190,31 : POKEC+V+190,0 : GOSUB 
238 

242 F0RX=@T02 : FORV=547TQ587STEP40 : POKEX+ 
V+V,160:HEXT:NEXT 

243 FORX-OT02 :FORV-547TO587STEP40 : POKEX+ 
V+C+V,CS:HEXT:HEXT 

244 PRINT•" ST" TAB (34> ■"INI 

lil-CS 

245 J'-PEEK < 56321 ) : JF=JAHD16 : J= 15- ( JAHD15 
) 

250 IF <J=1>AND (K>1)THEHW=V~10+K*200■'PONE 
W, 32 •' K=K-1 : POKEW-200, 31 : POKEN+C-200,8 
255 IF < J=2 > AND < K<4)THENW»V-10+K*200 : POKE 
W, 32 :K=K+1 : POKEW+208,31 : POKEW+C+200,8 

260 IF ( K= 10RK=2 ) AMD ( JF=0 ) TFIEHG0SUB298 : PO 
KE53280, 14 : SVS49154 : POKE53280, 11 •' G0T0245 

261 REM SVS49154=GESTIOHE JOVST. SPRITE 
NORMALE 

265 IF (K=3)AND <JF=0>THEH280 

270 IF < K=4 ) AND < JF=0 ) THENFORX-1 Tu 15 •' GETX$ 

:HEXT:SVS43668: RETURN 

271 REM SVS49668 SUBR. TRASFERIMENTO DAT 
I DA SCHERMO A BUFFER CASSETTA 

275 FORX=1T028 :HEXT:G0T0245 
280 .CS=CS+1: IFCS=16THENCS=0 
2A5 FORX=0TO2:FORV=547TO587STEP40 : POKEX+ 
V+V,160:HEXT:HEXT 

290 FORX=0TO2 : F0RV=547T0587STEP48 : POKEX+ 
V+C+V,CS : HEXT:HEXT 

295 PR IHT - SII" TAB < 34 > •" #11 

IGNI' CS : GOT0245 

297 REM 

298 REM *SUBROUTINE STAMPA RETTANGOLI * 

299 REM 

308 PR I HT SMWW' TAB < 27 ) •" Ti " V 
385 PRIHTTAB<27 ) " L^JilaPLOT " 

318 PR IHT •" jsMuT" TABC 27 ) ' .71 V 
315 PR I HTTAB ( 27 > " L-J*ktRASE " 

320 PR I HTTAB ( 32 ) •" SftMCOLORE ' 

325 PR I HT •" 'miM' TAB ( 27 ) TT T 

338 PR I HTTAB ( 27 ) " l_WEMENU " te/ 

335 PR I HT •' «r : FORX= 1TO(K-1 ) *6 • PR I HT : HEXT 
:PRINTTAB(27 >"34 S" 

340 PR I HTTAB ( 27) ' li 


345 P0KE681,122■P0KE2,3•REM CARATTERE " J 

■" CERASE) E COLORE CIANO 

358 IFK=1THEHP0KE681,81 : P0KE2,6 : REM CARA 

TT. (PLOT) E COLORE BLU 

355 RETURN 

364 REM *************************♦♦+♦♦♦ 

365 REM * SUB.-VISUALIZZAZIONE SPRITE-* 

366 REM ******************************* 

378 PR I HT ' ."MflM" TAB < 30 ) " Bl V 

375 FORX-1T04:PRIHTTAB(30)" I V NEXT 


388 PRIHTTAB(38) 'L 
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385 PQKE2040, 13:POKEVR.,12:POKEVR+ le.. 1 ■ PO 
KEVR+1 , 77 • PUKEVR+23, 1 • PUKEVR+29., 1 

386 I FM= 1THENPOKEVR+280 : REM DISABILI Tfi 
MULTICOLOR 

387 IFM=2THENP0KEVR+28 > 1 :POKEVR+3?.CI : PO 
KEVR+38 ; C2 : REM MULTICOLOR 

390 PuKEVR+39.1 CS : POKEVR+211 
395 G0SUB44 •' POKEVR+21 .■ 0 : RETURN 

398 R E M 4 4 4 -4 4 4 44 444444 4 4444444444444444 

399 REM 4 SUERQUTINE -NEGATIVO- 4 

400 REM 4444444444444444444444444444444 
405 F0RX SS 832T0894 : POKER , NOT<F'EEK (X > > AHD2 
55 :NEXT:G0SUB365: RETURN 

410 REM 4444444444444444444444444444444 

411 REM 4SUBR0UTINE-SPECCHIO-SPR.NQRM.4 

412 REM 4444444444444444444444444444444 

415 SVS49321 ■' G0SUB365 : RETURN 

416 REM SVS49321=SUBROUTINE SPECCHIO SPR 
ITE NORMALE 

417 REM 4444444444444444444444444444444 

418 REM 4 SUBROUTINE -CAPOVOLGIMENTO- 4 

419 REM 4444444444444444444444444444444 

420 F0RX=832T0859S7'EP3 : J1 =PEEK< X> : J2=F‘EE 
K < X+1 > : J3=F'EEK< X+2 ) 

425 POKER, PEEK< 892-R+832 > : POKEX+1, F'EEK <8 
93-R+832 >:PQKER+2,PEEK(894-R+832> 

430 P Li K E892- R+882J1 : P U K E!893—R+832 .• J 2 ■ P Li 
KE894-R+832,J3:NEXT : G0SUB365: RETURN 

437 REM 444 4 444444444444444444444444444 

438 REM 4SUBR0UTIHE-RGTRZ. SPRITE-S.N.4 

439 R E M 4 444444 444 4444444444 444 4 444444 4 

440 F'RIHT■"EftMHl>IRTTENBI STO ELABORANDO... 

441 FORR=0TO20 : FORJ=0TO2 : B-F'EEK <832+34R+ 

J) 

445 FORK=0TO7 : D==D/2 : I FD= I NT<D) THENAX(K, 8 

4■ J+7-K>=0 :G0T0455 

450 D-1NT<D):AX<R,84J+7-K> = 1 

455 NERTK : NERT-J : NEXTR 

456 FORR=0TO20 : FORV-0TO23 : S%<RV> =0 : NERT 
V : HERTR 

460 INPUT"TJìllHANGOLO DI ROTAZIONE (IN ORA 

DI) OR 

461 PRINT / MsWITEMPQ DI ELABORAZIONE 30-7 
0 SECONDI’" 

465 R=24it4R/360 : REM TRASFORMA GRADI IN R 
ADIANTI 

469 REM 44 NUOVO SISTEMA DI RIF. 44 

470 J=CQS<R) : J1 =~SIH < R) : J2=-J1 : .J3=J 
475 FORK=10TO-10STEP-1 : REM RIOHE AX<> 

480 FORD=- 11T012 : REM COLONNE DI ARO 
485 IFAR < K+10,D+11>-0THEN525 

489 REM 44 CALCOLO NUOVE COORD. 44 

490 X=J4D+J24K:V=J14B+J34K 

495 XR= INT < R ) : I FR<0ANDRORRTHENRR=XR+1 
500 VR= I NT ( V > : I FV<0ANBVOVRTHENVR=VR+1 
505 IFABS<RR-R> >.5THEHRR=XR+SGN<X> 

510 IFABS <VR-V>>.5THENVR=VR+SGN<V) 

515 IFXR>120RRR<-11ORVR>10ORVRC-1GTHEN52 

cr 

,j 

528 SR ( VR+10 .• RR+11 ) = 1 

525 NERTD : NERTK 

530 FORX-0TO20 : FORJ-0TO2 

535 ' D=0 : FORK--7TO0STEP-1 : D=B+SX(R, 84J+K>4 

2 T(7-K) : NERTK 

540 P0KE832+34R+J,D:NERTJ:NERTR 


545 G0SUB365 
547 G0SUB2148 

575 0N R G 0 S U B:925 .■ 588, 180698,365 
577 IFR=6THEN456 
580 IFR=7THENRETURH 
585 GUT0547 

587 REM 4444444444444444444444444444444 

588 REM 4 SUB. RIPRISTINO SPRITE OR. 4 

589 REM 4444444444444444444444444444444 

590 PRINTn$tt>IANC0RA UN ATTIMO DI F'AZIEN 
ZA. . . : FORR=0TO20 : F0RJ=tìTG2 

591 D=0:FORK=7TO0STEP-1 : D=D+AX<R,84J+K)4 
2T(7-K):NERTK 

595 P0KE832+34R+J > D:NEXTJ : NERTX 

596 G0SUB365 •' RETURN 

597 REM 4444444444444444444444444444444 

598 REM 4 SUBROUTINE -LOAD DATI- 4 

599 REM 4444444444444444444444444444444 

600 PRINT 'ZWWSIDHI SCO 0 2CHR3SETTA O 

605 I NF'IJTXT : R$=LEFT$ ( R$1 > : I FR$= OR < R*< 
> •' D ■' ANDRTO ■" C ■" > THEH60U 
610 R= 1 : I FXÌ= D •' THENR-8 

615 INPIJT *W»WQME DELLO SPRI TE ; X$ : PR IN 
Ter 

616 P0KE563333 : P0KE788,49 : P0KE789,234 : P 
0KE49912 > U : P0KE56333 > 131 : P0KE542.96 > 0 
620 A$=" •" : 0PEN1, R, 0., Rf 

625 GET# 1, Xf = I FR$= •" 4 THENCLOSE1 : G0SUB642 
: RETURN 

640 A$=A$+R$:GQT0625 

641 REM 4444444444444444444444444444444 

642 REM 4 SUBROLlTÌNE-DECODIFICA DATI- 4 

643 REM 4444444444444444444444444444444 
645 M-VAL(LEFT$(A*,1)): J^832 

650 C1-VAL<MID$<A$,2,2>):POKEVR+37,C1 
655 C2=VAL ( MI D$ ( A$ > 4 > 2 ) ) : POKEVR+38C2 
660 CS=VAL ( MI D$ ( A$ ^6^2 ) : PUKEVR+39 > CS 
665 F0RX=8T0LEN ( A$ > STEP3 : R$=M IDT C A$ / R3 ) 

:POKEJ / VAL(R$):J=J+1:NERT 
670 RETURN 

697 REM 4444444444444444444444444444444 

698 REM 4 SUBROUTINE -SAVE DATI- 4 

699 REM 4444444444444444444444444444444 

700 PRINT- TMiariBISCO 0 SCBASSETTO O 

705 INPUTX$ = R$=LEFT$<R*O) : I FX $=''OR <X$< 

>'D' ANDXfO■"C>THEN700 

710 J=1 : I FX#= D •" THENJ=8 

715 A*=M I D$ < STR$ <M >2 ) : B$=R IGHT $ < 00 +MI 

D$(STR$(C1),2>,2) 

720 C$=R I GHT $ < 0 0 ■" + MID T ( S T R $ ( C 2 ) ,2), 2) 

72 1 R$=R I GHT $ < 00 ' +MI D$ < STRf < CS ) ,2)> 2 ) 
725 fl$=fl$+B$+C$+R* 

730 F0RX=832T0894 : BJ : = 000 +MI D$< STR$ ( REE 
K < R > >,2 >: 8*=A$+RIGHT$( B $, 3 > 

735 NERT : Fl$=A$+'"4'' 

745 INPUT 'SWHOME DELLO SPR ITE ORfipRIN 
T'W 

746 P0KE56333 > 3 :P0KE788,49 :P0KE789,234 :P 
0KE54296,0 :P0KE56333,131 :P0KE49912.0 
750 OPEN 1j J j 1,R$ 

755 F'RIHTttl j A$ 

770 CL0SE1:G0SUB645 ; RETURN 

917 REM 4444444444444444444444444444444 

918 REM 4 SUBROUTINE -CLEAR SPRITE- 4 

919 REM 4444444444444444444444444444444 

920 FGRX=832T0894 : POKER,0 :NERT: RETURN 
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924 rem ******************************* 

925 REM * SUBROUTINE -STAMPA URTI- * 

926 REM ******************************* 
940 INPUT"aWNOME DELLO SPRITE " ; Al 

945 PRI NT "WKM3TAMPA SU SWHIDEQ 0 SU SS*T 
AMPANTE 

950 I NPUTXI •• I FX$= •' " OR<XIO " V" AHDXIO " S" ) 
THEN945 

955 IFXI= -• S •' THENOPEH1,4 = CMD1 

965 PRINT•'PRI NT "ELENCO DEI DATA DELLO SP 

RITE ";A$ 

970 PRINT :F0RX=832T0894STEP9 : FORV=0TO8:P 
RINTMIDI <STRI< PEEK<X+V >),2 )","; 

975 NEXT:PRINT :NEXT: IFX$= "S"THENPRINT#1 : 
CLOSE1 

980 PRI NT ":OÌPREMI UN TASTO..." 

985 GETXI : I FXI= " THEN985 
990 RETURN 

997 REM ******************************* 

998 REM * SUBROUTINE -PROOR. ESEMPIO- * 

999 REM ******************************* 

1000 PRINTMttiCHE SPRITE VUOI USARE <0- 

7 j 9 * \ 

1005 GETXI : IFXI= " •' THEN1005 

1006 IFASCKXIX48 OR ASC < XI) >55THEN 1005 
1010 PR I NTX$ : /-VAL < XI ) = PR I NT " SHIVUO I ESP A 
NDERLO [S/N] ? 

1015 GETXI ^ I FXI= " " OR < XIO " N " ANDXIO " S " ) T 
HEN1015 

1020 PR I NT XI : fil=MI DI < STRI <2 TX ) , 2 ) 


1030 PR I NT ■- 7310 CLR •' V- •" J MI DI' < STRI" < VR ) , 2 > 

1Ù35 I FM=2THENPR I NT " 15 POKEV+28, PEEK '1V+2 
8)0R"A!":REM ABILITAZIONE SPRITE MULTICO 
LOR" 

1040 PR I NT " 20 POKE MI DI< STRI < 2040+X ) , 2 ) " 
,13 : REM MEMORIZZA DATI NEL 13‘ BLOCCO" 

1045 IFM=1THENPRINT"25 P0KEV+39+"MIDI<ST 
RI < X ).. 2 ) " > " MI Dl : < S TRI < CS ) > 2 ) .• 

1047 IFM=1THENPRINT": REM COL."X" ir SPRIT 
E": GOTO1065 

1050 PRINT"25 PQKEV+37>"MIBKSTRI<C1),2) 
" : REM COLORE 1" 

1055 PRINT"30 POKEV+38,"MIDI<STRI<C2 >,2> 
": REM COLORE 2" 

1068 PRINT"35 POKEV+39+ "MIDI<STRI<X), 2) " 
, " MI DI < STRI' < CS >, 2 ) " '• REM COLORE 3 " 

1065 PRINT"40 FORK=0TO62:READD:P0KE832+K 
,D = NEXT: REM 832=64*13 <13=BL0CC0>" 

1070 I FX$= " S " THENPR I NT " 45 POKEV+23.■ PEEK( 
V+23>OR"Al■' : REM EXPAND V "X"«r SPRITE" 

1075 IFX*= " S " THENPRINT "46 POKEV+29,PEEK < 
V+29>OR"Al" : REM EXPAND X "X"«P SPRITE" 

1080 PR I NT " 50 POKEV+16 .■ PEEK < V+16 > AND < 255 
-"Al"): PQKEV+2* " MI DI < STRI < X ) .■ 2 ) ; 

1081 PR I NT " X ; REM COORD. X <8-255)" 

1085 PRINT"55 PQKEV+2*"MIDI<STRI< X>,2)" + 
1/r': REM COORD. V <8-255)" 

1090 PRINT"60 PQKEV+21,PEEK<V+21)OR"Al": 
REM ABILITAZIONE"/"IP SPRITE" 

1091 PRINT"XDWPREMI UN TASTO PER LEGGERE 
I DATA " ■' WAIT197,191: PRI NT " EM" 

1095 A=60:F0RK=832T0894STEP9:A=A+5 : PRINT 
MIDI<STRI<A),2)" DATA"; :FGRJ3=0TQ8 
1108 PRINTMIDI<STRI<PEEK<K+J3)),2)","; :N 


EXT: PRI NT "Il ^ : NEXT 

1105 F0RV=1T018 : GETCI : NEXT : PRI NT "SPREMI 
UN TASTO..." 

1110 GETCI ■' I FCI= " " THEN 1118 
1115 PRINT"21"TAB< 17) "NOTA : " 

1128 PRI NT "MISE LA COORDINATA X DELLO SP 
RITE E" MAG-"; 

1125 PRINT"GlORE DI 255 , SOSTITUIRE LA 
RIGA 58" 

1130 PRINT"CON LA RIGA : " 

fi 35 PR I NT " KB950 POKEV+16, PEEK < V+16 ) OR " Al 

":POKEV+2*"MIDI< STRI<X),2)",X-256" 

1140 PRINT" SMUOVE POKEV+16,PEEK< V+l6)OR" 
Al" PONE A 1 IL BIT PIU"".: 

1145 PRINT"SIGNIFICATIVO <M.S.B.) RELATI 
VO AL"X"«r "; 

1158 PR I NT " SPR I TE. " •' PR I NT " SKIOGNI QUAL VOLT 
A LA COORDINATA X DIVENTA"; 

1155 PRINT"MINORE DI 256 RISOSTITUÌRE LA 
NUOVA RI-" 

1160 PRINT"GA CON LA PRECEDENTE." 

1165 PR I NT " il 11 ] PROGRAMMA ESEMPIO 

2] MENU"" 

1170 GETCI: IFCI=""THEN1170 
1175 IFC$="1"THEN1038 
1180 IFC$="2"THEHRETURN 
1185. GOTO 1170 

1997 REM ****************************** 

1998 REM *S'UBROUT INE-ROTAZ. SPR ITE-MUL. * 


1999 REM ************^***************** 

2000 PRINT"nslSSilATTENDI STO ELABORANDO.. 

2005 FORX=0TO20 ■' F0RJ=8T02 : D=PEEK < 832+3+X 
+J) 

2010 FORK=0TO7:D=D/2: IFD=INT<D)THENAX<X, 

8*J+7-K)=0 : GOTO2020 

2015 D=I NT < D ) : AJi < X, 8*J+7-K ) = 1 

2020 NEXTK:NEXTJ:NEXTX 

2021 FORX-0TO20:FORV=0TO23:SX < X,V)=0 : HEX 
TV :NEXTX 

2025 INPUT"rHMMJOLO DI ROTAZIONE <IN GR 
ADI) ";X 

2030 PRINT"WbUÌITEMPO DI ELABORAZIONE 3@- 
70 SECONDI" 

2035 X=2*tr*X/360 

2039 REM ** NUOVO SISTEMA DI RIF. ** 

2040 J=COS<X) : J1=-SIN<X):J2=-J1:J3=J 
2045 FORK=10TO-10STEF‘-1 : REM RIGHE AXO 
2050 FORD=-11TO11STEP2 : REM COL. DI AXO 
2055 IFAX < K+10,D+11)=OANDAX< K+18,D+12)=0 
THEN2110 


2060 REM *'* CALCOLO NUOVE COORD. ** 

2065 X=J*D+J2*K:V=J1*D+J3*K 
2070 XX=IHT<X) : IFX<0ANDXOXXTHENXX=XX+1 
2075 VX=INT< V) : IFV<0ANDVOVXTHENVX=VX+1 
2080 IFABS < XX-X)>.5THENXX=XX+SGN <X) 

2085 IFABS< VX-V) >.5THENVX=VX+SGN < V) 

2090 I FXX/2'O I NT < XX/2 ) THEN2100 

2095 XX=XX+1 •' I FABS < X-XX+2 ) < < XX-X ) THENXX® 

XX-2 

2100 IFXX>11ORXX<-11ORVX>10ORVXC-18THEN2 


110 

2105 SX <VX+10,XX+11)=AX< K+l0,D+11) 


+ 10,XX+12)=AX < K+10,D+12) 
2106 IFVX<10THENSX< VX+11 
, XX+ 11)-' sx < VX+11, XX+12 ) = 


,XX+11)=: 
SX < VX+1 0 


Oli. 


VX+10 

:+i2) 
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2110 NEXTD ; NEXTK 

2115 FORX=0TO2@:FORJ=0TO2 

2120 D=0 ^ FORK=7TO0STEP-1 : D=D+SX<X, 8#J+K> 

#2t<7-K> •’NEXTK 

2125 P0KE832+3*X+J,D:NEXTJ:NEXTX 
2130 G0SUE365 
2132 G0SUB2148 

2135 0NXG0SUB925 .• 588 , 2198 , 698 .■ 365 
2137 IFX=6THEN2021 
2140 IFX=7THENRETURN 
2145 G0T02132 

2147 rem mmmmmmmmmmmmmmm 

2148 REM * MENU" ROTAZIONE * 

2149 rem mmmmmmmmmmmmmmm 

2150 PRINT ''HtìSHiltìl ]Il VISUALIZZAZIONE DAT 
I 

2155 PRINT'»IM2]»I RIPRISTINO SPRITE ORI 
GIRALE 

2160 PRINT"»»ls!3]ll EDITOR 

2165 PRINT")»*|a(4]ll SAVE DATI 

2170 PRINT"»»ls6]ll VISUALIZZAZIONE SPRIT 

E" 

2175 PRINT"»»MS]«I ALTRA ROTAZIONE <SPRI 
TE ORIGINALE)" 

2180 PRINT":«»Plaf7Dil RITORNO MENU "' 

2185 INPUT "MM»»I QUALE OPZIONE 

imiiiMttyitttiittUttifltttMUifiiiir' j iy ' 

2196 IFXC10RX>7THEHG0SUB2768:G0T02185 

2194 INPUT"»»! TUTTO OK CS/HI ";X$ 

2195 IFLEFTT < , 1 ) -' H " THENPRI NT ' TTTTTTT' 

: G0T02185 

2196 RETURN 

2197 REM ****************************** 

2198 REM * SUBR. -ED ITOR-SPRI TE MIJLT. * 

2199 REM ****************************** 

2200 POKEVR+21, Q : PR I NT " Ztiia 

n ■" 

2205 FORX= 1TO10 ; F‘R I NT ■" ma ■k. LLLLLL 
i.L l i . i e ra a ri ■" 

2210 PRINT"!i!SL À ..L L. J —L . LLLLLLLJ 
ÌT15LZI ■' : NEXT 

2215 PRINT"SMi gSfc—L- L L . L LL L L LL L, I 
ma 73 

2220 PRINT"IBa 73 

UT:SVS50688: REM SUB.L.M.STAMPA SPRITE 
2230 P0KE49152,50:REM RITARDO VELOCITA" 
CURSORE 

2235 P0KE49153,250 : REM RITARDO PRIMO SPO 
STAMENTO CURSORE 

2240 K=1 :POKEV+150,31 :PQKEC+V+150,0 :GOSU 
B250O 

2245 J=F‘EEK< 56321 > : JF-JAND16 : J=15- < JAND1 
5) 

2250 W=V-10+K*160 : REM SVS50177=SUBR. CAM 
Blu COLORI NELLA GRIGLIA 
225 T IFJ=1ANDK>1THENSVS50177 :POKEW,32 :K= 
K-l : POKEW-160,31 :POKEW+C-168,0 ; OOSUB2508 

2255 IFJ=2ANDKC5THENSYS50177 :POKEW,32 : K= 
K+1 ; PQKEW+160,31 :POKEW+C+160,0 :GOSUB2500 

2256 V=PEEK< VR+K+35 > AND15 

2260 I FK= 1 AND JF=OTHENGOSUB2500 •' PR I NT " SWOfl 

" TAE < 27 > " aa ■" : PR IHTTAE < 27 ) " a MI" 

2261 IF<K=1 > AND<-JF=0 ) THEHP0KE681, 122 : POK 
E683,3 :SVS58432 : GOSUB2500 


2262 REM SVS50432-GESTIONE JOYSTICK MULT 
ICOLOR 

2265 IFIO 1ANDKC5ANDJF=0THEHSVS50177 :A=1 : 
GOSUB2500 : A=0 •' P0KE681,81 

2266 I FIO 1ANDKOAND JF=0THENPOKE683, V : SVS 
50432 : GOSUB2500 

54997 REM ***************************** 

54998 REM *DATA L.M. GEST. JOYSTICK SN* 

54999 REM ***************************** 

55000 DATAI 62,1,160,1,173,1,192,133,252, 
24,32,240,255,177,209,41,127,145,209 
55010 DATA32,71,192,176,24,24,32,240,255 


, 173, 

169,2,145 

,209,165 

,210,24, 

105, 

212 

55015 

DATA133, 

254,165, 

209,133, 

IT 

uL-JO > 

165,2, 

145,2 

53,24,32, 

240,255, 

177 



55020 

DATA209, 

9,128,14 

5 , 209 , 32 

• 1 

,192,1 

73, 17 

0,2,201,1 

,208,197 

,96,173, 

1,22 

0 


55030 DATA133,251,74,176,5,202,224,0,240 
,31,74,176,5,232,224,22,240,23 
55040 DATA74,176,5,136,192,@,240,15,74,1 
76,5,200,192,25,240,7,74,169 
55050 DATA0,141,170,2,96,56,169,1,141,17 
0,2,96,142,167,2,140,168,2,166,252 
55060 DAT A160,255,173,1,220,197,251,208, 
18,136,208,253,202,208,241,174,167,2 
55070 DATA172,168,2,173,0,192,133,252,96 
,173,1,192,133,252,174,167,2,172 
55080 DATA168,2,96 


55087 REM ***************************** 

55088 REM *DATA L.M. SPECCHIO SPRITE N * 

55089 REM ***************************** 

55090 DAT A169,64,133,251,169,3,133,252,1 
60,Ù,162,8,177,251,133,253,200,177 

55100 DATA251,133,254,6*253,200,177,251, 
106,145,251,136,136,177,251,42,145,251 
55110 DATA200,6,254,177,251,106,145,251, 
202,208,230,200,200,192,63,208,213,96 
55197 REM ***************************** 


55198 REM * DATA L.M. SCHERMQ->DATI SN * 

55199 REM ***************************** 

55200 DAT A1 69 , 40,1 33 , 251 , 1 69 ,4,1 33 , 252,1 
69 , 0 , 133 , 253 , 162 , 1 , 160 , 1 , 230,253 

55210 DATA 177 , 251 , 56,201 , 81,240 , 4 , 24 , 76 , 
34 , 1 94 , 56 , 62 , 63 , 3 , 200 , 56 , 192 
55220 DATA9 , 208 , 233 , 165 , 251 , 24,105 , 8 , 133 
, 251 , 144 , 2 , 230 , 2152 , 232 , 165 , 253,56 


55230 DATA281,24,208,212,169,0,133,253,1 
65,251,24,105,16,133,251,144,2,230 
55240 DATA252,224,64,208,193,96 
55247 REM ***************************** 


55248 REM * DATA L.M. .DAT I->SCHERM0 SN * 

55249 REM ***************************** 

55250 DATA162,0,169,8,133,2,169,41,133,2 
51,133,253,169,4,133,252,169,216,133 
55260 DATA254,160,0,62,64,3,144/8,169,6, 
145,253,169,81 


55265 DATA176 
5,251,200,196 
55270 DATA230 
, 105,8, 133,2,; 
55280 DATA133 


6,169,3,145,253,169,122,14 
2, 208 

232,224,63,240,32,24,165,2 
l‘01,32,208,214,169, 8 
2,165,251,24,105,40,133,25 


1,133,253, 


144,197,230,252 


55285 DATA230,254,176,191,96 

55297 REM ***************************** 

55298 REM *DATA L.M.CAMBIO COLORI MUL.* 

55299 REM ***************************** 
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55300 

DATA 162, 

0, 

142,0, 

196 

, 160 

,1,169 

,40, 

1 

33,251 

,133,253 

, 1 

69,4,1 



252, 

169 



55310 

DATA216, 

13 

8,254, 

cl-J 


, 173 

,54,5, 

56,20 

1,31,2 

40,19,23 

, 

173,214, 

5 

,56, 

201 



55320 

DATASI,2 

40 

,10,23 







55322 

DATA173, 

11 

8,6,56 

, 2 

01,31 

,240,1 

.* 96 


55325 

DRTR238, 

0, 

196,17 

i'*, 

251,5 

6,201, 

81,24 

0,82, ci 

100,56, 19 

'2, 

25 







55330 

DATA208, 

24 

3,160, 

1, 

1 

65.. 2 

51,24, 

105, 

• 4 

0,133, 

253,133, 

25 

1,144, 

4, 

»i 

38,2 

52,230 



55340 

DRTA254, 

17 

3,0,196, 

56,201,21,2 

08,21 

5,96, 1 

73,37,20 

10 , 

56,241 

,i cL 

5 

3,41 

, 15 



55350 

DATA240, 

214,173, 

38 


208, 

56,241 

, 25:: 

;!, 

41,15, 

240,204, 

17 

3,39,2 

08 


56 .* 2 

41,253 



55360 

DATA41,1 

5, 

240,19 

4, 

1 

89.. 3 

6,208, 

145. 

1 ìi' 


53, 7 6,60,196 

55497 rem ***************************** 

55493 REM *DATR L.M.CEST. JOVST. MULT.* 

55499 REM ***************************** 

55500 DATA162,1,160,2,173,1,192,133,252, 
24,32,240,255,177,209,41,127,145 

55510 HATA209,136,177,209,41,127,145,209 
,200,32,121,197,176,56,24,32,240,255 
55520 DATA173x169,2,145,209,201,122,208, 
12,136,24,32,240,255,169,111,145,209 
55530 liATA76,67, 197, 136, 24,32, 240,255, 17 
3, 169,2,145,209,200,24,165,210,105 


55540 DATA212,133,254,165,209,133,253,17 

3,171,2,145,253,136,145,253,20O 

55545 DATAI92,0,240,28,24,32,240,255 

55550 DATA177, 209,9,123,145,209,136,177, 

209,9,128,145,209,200,32,122 

55560 DATA192,173,170,2,201,1,208,145,96 

, 173, 1,220, 133, 251,74,176,5,202 

55570 DATA224,0,240,33,74,176,5,232,224, 

22,240,25,74,176,6,136,136,192 

55580 DATA0,240,16,74,176,6,200,200,192, 

26,240,7,74,169,0,141,170,2 

55590 DATR96,56,169,1,141,170,2,96 

55597 REM ***************************** 

55598 REM *DATA L.M.-SPECCHIO MULTIC.-* 

55599 REM ***************************** 

55600 DATA162,0,189,64,3,41,85,10,133,25 
1,189,64,3,41,170,74,5,251 


55610 DATAI' 


>4,623 208,232,86 


55617 REM ***************************** 

55618 REM *DATA L.M.DAT1->SCHERMO MUL„* 

55619 REM ***************************** 


55620 

DATA 169,8,141, 

167, 

2 , 16 

9,41,133, 

251 

, 133,; 

253,169,4,133,2 

52, 1 

69,2 

16,133 


55630 

DATA254,162,0, 

160, 

0, 30 

,64,3,46, 

168 

,2,30 

,64,8,46 j168,2, 

173 




55640 

DATA168,2,41,3 

,201 

, 8,240,26,201 

.* ó ? 

240,10,201,2,240,12, 

173, 

3 r 



55658 

DATÀ208,76,89, 

198, 

173, 

38,208,76 

,89 

, 198, 

173,39,208,76,8 

9, 19 

8, 16 

9,3 


55660 

DATAI45,253,200,14 

5,253,169,122 

, 14 

5,251 

,136,169,111,14 

5,25 

1,76 

,101,198 


55670 

DATA145,253,200,14 

cr cr i ztq o 1 

«J .i i-JO .« 1t» J.> O 1 > 

145 

,251, 

136,145,251,200 

, 200 

, 204 

,167,2,20 

8 

55680 

DATA171,232,22 

4,63 

,208 

,1,96,24, 

173 

, 167, 

2,105,8,141,161 

,2,2 

01,3 

•i' 


55690 

DAT A208,152,16 

9,8, 

141, 

167,2,165 

,25 

1,24, 

105,40,133,251, 

133, 

253, 

144,134 



55700 DATA230,252,230,254,76,21,198 
55787 REM ***************************** 

55708 REM * L.M. SCHERMO-TDATI MULT. * 

55709 REM ***************************** 

55710 DATA169,8,141,167,2,169,41,133,251 
,133,253,169,4,133,252,169,216,133 


55720 DATA254,162,0,160,0,177,251,201,81 

,240,11,24,62,64,3,24,62,64 

55730 DATA3,76,97,199,177,253,41,15,141, 

11'8,2,173,87,208,41,15, 205, 1bS, 2 

55735 DATA240,21,173,38,288,41,15,205,16 

8,2,240,22,56,62 

55740 DATA64,3,24,62,64,3,76,97,199,24,6 
2,64,3,56,62,64,3,76 

55750 DATA97,199,56,62,64,3,56,62,64,3,2 

00,200,204,167,2,208,175, 232 

55760 DATA224,63,208,1,96,24,173,167,2,1 

05,8,141,167,2,201,32,208, 156 

55770 DATA169,8,141,167,2,165,251,24,105 

,40,133,251,133,253,144,138,230,252 

55780 DRTR230,254,76,21,199 

63000 IHPUT ■■ [HOME SPRITE, DEVICE ' ; N$, X 
6301O IHPUT' MSHUMERO RIGA INIZIO DATA 
A : R=A-10 

63020 A$=’" " : OPEN 1, X, 0, NT 
63030 GET# 1, X$ ■ I FA$= x THENCLOSE1 : G0SUB6 
3090 :GOTO63050 
63040 A$=A$+X$ : GOTO60030 
63050 PRINT-I2MS' :F0RX=832T0894STEP9 : A=A+ 
10 

63060 PRINTMIBS < STR$ <A),2>'DATA"; :FORV=0 
T03 : PR I NTM I D$ ( STRS< PEEK<X+V) >, 2)3 ' ; 
63070 NEXT : PR I NT Il ' HEXT : PR I NT 3" 

63080 F'OKE 198,7: F0RX=631T0637 : F'OKEX, 13 : H 
EXT : END 

63098 J=832 : F0RX=1T03 : PQKE53284+X, VALIMI 
D*<A$,2*X,2)> : NEXT 

63100 F0RX=8TOLEN < Af > STEF'3 : X $=M I D$ < A*, X, 
3):POKEJ,VAL<Xf> : J=J+1 : NEXT: RETURN 
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ARCHER 

di Adamo Antonellini 



arte 


del 


tiro ... 


20 le treccie a disposizione che potrete 
scoccare premendo il tasto «M». 

•((i 


Volete cimentarvi nell’antica 
con l’arco? 


10 REM** Questo programma e’ stato 
20 REM** ideato da: 

30 REM** 

40 REM** ADAMO ANTONELLINI 
50 REM** U. ARGELLI n. 1? 

60 REM** 48010 FUSIGNANO -RA- 
20 REM** ■ 

80 REM** 

90 REM** E’ un semplice gioco tratto 
100 REM* dal tiro con l’arco. 

110 REM* Un solo tasto da usare 

120 REM* < M > per tirare le freccie 


200 C0L0R15) 1, C0)0J-C255j1901,4 

210 PRINT :PRINT CHR$C161 

220 PRINT "222222222222222222222222222 

222222222222" :REM GRAPH+2 

230 PRINT "222222222222222222222222222 

222222222222"-‘REM GRAPH + 2 

240 PRINT "222222222222222222222222222 

222222222222" :PRINT:REM GRAPH + 2 

250 PRINT *' -r'/'N — ^ r. _ 

" :REM DIGITARE CON GRAPH 
260 PRINT " s\ \\ /n ^ 

~ ~ \\ " :REM DIGITARE CON GRAPH 

270 PRINT AA A A —— A A A A A /N 


130 REM* Prima del gioco c 1 sono due 
140 REM* pagine illustratile. 


280 PRINT " 


":REM DIGITARE CON GRAPH 


150 REM* I tiri sono 20, 

160 REM* 

120 REM* Il punteggio massimo e’ 2000 
180 REM* 

190 SCREEN 2,2: CLS 


—- " :REM DIGITARE CON GRAPH 

290 PRINT " /s w ~ * 

~ ^ s\ ":REM DIGITARE CON GRAPH 

300 PRINT M /S/N A ^ Z*' A /N/S /N /N/S /N /N 

~ ^ " :REM DIGITARE CON GRAPH 
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STE1KE1 



310 PRINT ” ^ ~ ^ - 

^ " :PRINT =REH DIGITARE CON G 


RAPH 

320 PRINT "222222222222222222222222222 
222222222222" :REH GRAPH+2 
330 PRINT "222222222222222222222222222 
222222222222" :PRINT :REf1 GRAPH+2 


340 PRINT " Created by 
< n > " -PRINT" 

RAPH+3 

350 PRINT " Adam.Ant. 

RE " :PRINT" 

PH + 3 

360 PRINT " SOFTWARE 

k e y to CONT"SPRINT " 

3" --REH GRAPH+3 


3 
3 ‘ 


Press 
3" :REN G 

to FI 
; REFI GRA 

. . any 


320 X$=INKEY$:IF X$=""THEN370 
380 CLS 

390 CIRCL'E C130; 301,15, 1 
400 CURSOR 121,87 :PRINT "100" 

410 CIRCLE C1J0,901,30,1 
420 CURSOR 102,87 : PRI NT "50" 

430 CURSOR 147,87:PRINT "50" 

440 CIRCLE C130,901,45,1 
450 CURSOR 87,87 SPRINT "10" 

460 CURS0R162,87 SPRINT "10" 

470 C0L0R15: PRINT CHR$C171=CURS0R76,2 
0:PRINT"S CORE" 

480 CURS0R46,160:PRINT"T A K E THE" 
sCURSOR 58, 180 =PRINT " C E N T E R":PR 
INT CHR$ 1161 

490 CURSOR 200,70 SPRINT "..any key 

500 CURSOR 200,80 SPRINT " to CONT 

510 COLOR 1,15,C80,401-C180,1401,4 

520 X$=INKEY$:IF X$=""THEN520 

530 P=100 sA=21 

540 2 = 64 : Q=124sY=40 

550 REFI XX CARATTERI XX 

560 PATTERNS40,"0303030303030303" 

570 PATTERNS42,"FF00000000000000" 

580 PATTERNS43,"0707070707070707" 

590 PATTERNS44,“0F0F0F0F0F0F0F0F" 

600 PATTERNS45,"FFFFFFFFFFFFFFFF" 

610 REM XX SPRITES XX 
620 COLORI,11,C0,01-C255,1901,4 
630 SCREEN 2,2 : CLSsU=J+U:A=A-1 
640 CIRCLEC28,901,4, 1, 1.2,0, 1 
650 LINEC27,941-127,961,1 
660 LI NEC29,941-129,961,1 
670 CIRCLEC28,1021,4,1,1.6,0,1 
680 LINEC26,1071-C28,1251,1 
690 LINEC28, 1251-C31, 1241,1 
700 LINEC31,1241-128,1221,1 
710 LI NEC 28, 1221-130, 1081,1 


720 LINEC25,1021-C28,1041,1 
730 LINEI25,1001-C23,1031,1 
740 LINEC32,901-C35,1001,1 
750 LINEC35,1001-C32,1101,1 
760 LINEC28,1001-C36,1001,1 
770 P=100s2=64sQ=124sY=40 
780 IF A=0 THEN 1070 
790 LINEC0,401-1255,401,1 
800 LINE1228,401-1228,1901,1 
810 LINEC165,401-C165,01,1 
820 REO 

830 COLORISCURSOR170,30sPRINT"TOP = 


; 2000 

840 COLORI :CURSOR170,10:PRINT”SCORE=" 
850 COLORISCURSOR170,20 sPRINT"FIRE =" 
860 PRINT CHRS1171: C0L0R8:CURSOR20,23 
:PRINT"A R C H E R" 

870 SPRITE 2,C220,21,0,1 

880 SPRITE 3,C220,2-81,3,8 

890 SPRITE 4,1220,2-161,4,1 

900 SPRITE 5,C220,2-241,3,8 

910 SPRITE 8,1220,2-321,0,1 

920 IF 2>190THEN 2=68 

930 2=2 + 8 SPRINT CHR$1161 

940 COLOR8:CURSOR210, 10 SPRINT UsCURSOR 

210,20 SPRINT A 

950 IF INKEY$="[1"THEN BLINE 128, 1001 - C3 
6,1001SGOTO970 
960 GOTO870 
970 Q=30 

980 SPRITE10,1Q,PI,2,1 
990 Q=Q+10 

1000 IF Q>230THEN 620 

1010 IF P=2-4 AND Q = 230 THENBEEP :J = 1 
0 SGOTO630 

1020 IF P=2-12AND Q=230 THENBEEP :J=5 
0 SGOTO630 

1030 IF P=2-20AND Q=230THENBEEP :J=100 
SGOTO630 

1040 IF P=2-28AND Q=230 THENBEEP :J=5 
0 SGOTO630 

1050 IF P=2-36AND Q=230 THENBEEP sj=l0 

: GOTO630 

1060 GOTO 980 

1070 SCREEN2,2 : CLS 

1080 COLOR 1,15,10,01-1255,1911,4 

1090 C0L0R8 -‘PR I NT CHR$1171 : CURSOR 20,3 

0 SPRINT " G A fi E 0 U E R" 

1100 PRINTCHR$C161SPRINT sPRINTs COLCR 
1 SPRINT " Your SCORE =" SPRINT 

CHR-$ 1171 s COLORI 5 sCURSOR 140,62 sPRIN T U 
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1110 COLORI5,1,1130,531-1230,751,4 
1120 X$=INKEY$sIF X$=""THEN 1120 



















MR JUMP 

di Enrico Combi 


Un gioco con il «fantasma». 

Su una piramide a terrazze cercate di sfuggire 
al terribile spettro che vi vuole «predare». 
Potete «congelare» l’avversario per pochi 


attimi ed eventualmente «cannibalizzarlo»!!! 
Ulteriori istruzioni sono contenute nel 
programma. 



100 REM ************ 

110 REM * MR. JUMP * 

120 REM ************ 

130 REM * by CAMBI * 

140 REM * ENRICO & * 

150 REM * BERTONI * 

160 REM * ANDREA * 

170 REM *via Abetti* 

180 REM * n A 37 (HO)* 

190 REM * * 

200 REM * * 

210 REM ************ 

220 REM DEF. CARATTERI E COL 

ORI 

230 CALL CLEAR 

240 F0R 0 = 128 T0 152 STEP 8 

250 CALL CHAR(Q, "00FFFFFF") 

260 CALL CHAR(Q+1,"FFFFFFFFFFFFFFFF") 

270 NEXT 0 

280 CALL CHAR(112,"7C547CD66C3828EE") 

290 CALL CHAR(96,"7CB6FEAA82AA7C'‘) 

300 CALL CHAR(138,"0000B7A5B595B7") 

310 CALL COLOR(12,10,1) 

320 CALL COLOR(13,16,1) 

330 CALL COLOR(14,15,1) 

340 CALL COLOR(15,14,1) 

350 CALL COLOR(16,13,1) 

360 FOR 0=1 TO 11 
370 CALL COLOR(Q,12,1) 

380 NEXT Q 

390 REM ISTRUZIONI 

400 CALL SCREEN(2) 

410 PRINT TAB(8);"MISTER JUMP":::: 

420 PRINT "SALTA SULLE PIATTAFORME":"USA 
NDO I TASTI A,X,L,M":"EVITANDO IL MOSTRO 


440 PRINT "POTRAI PARALIZZARE IL MOSTROP 
ER UN POCO PREMENDO LA":"BARRA. IL NUMER 
0 DI BOMBE": 

450 PRINT "PARALIZZANTI E' SEGNATO":"DA 
UNO 0 PIU' ASTERISCHI IN": "ALTO A SINIST 
RA. " 

460 PRINT "QUANDO IL MOSTRO E'":"PARALIZ 
ZATO PUOI MANGIARLO":: 

470 PRINT "PREMI UN TASTO PER INIZIARE": 
480 CALL KEY(0,K,S) 

490 IF S=0 THEN 480 
500 V=5 0 

510 P=0 
520 R=0 
530 S=1 
540 BP = 3 

550 REM STAMPA SCHERMO 
560 CALL CLEAR 
570 FOR 0=1 TO 7 
530 FOR W= 1 TO Q 

590 CALL HCHAR(0*2 + 4,13-Q*2 + W*4, 128,3) 
600 NEXT W 
610 NEXT Q 

620 E=(INT((S-l)/3)+l)*8+129 
630 MR=(INT((S-l)/3) + 1)#28 
640 CALL HCHAR(24,1,E,32) 

650 IF V<5 THEN 790 
660 Q$= "0204p p p p" 

670 GOSUB 730 

6S0 Qf=“0220PUNTI:"&STR$(P) 

690 GOSUB 730 
700 CALL HCHAR(4,4,42,BP) 

710 GOTO 790 
720 REM PRINT AT 


430 PRINT "FAI CAMBIARE COLORE ALLE“PI 
ATTAFORME FINO A RAGGIUN-":"SERE IL COLO 
RE DELLA RIGA":"IN BASSO.":: 


730 Q=VAL(SEG$(Q$,1,2)) 

740 W=VAL(SEG$(Q$,3,2) ) 

750 FOR Z=5 TO LEN(0$) 

760 CALL HCHAR(Q,W-5+Z,ASC(SEG$(Q$,Z,l)) 
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) 

770 NEXT Z 
780 RETURN 
790 A = 5 
800 B=16 
810 X = 19 
820 Y=30 

830 0$="2107STAI PRONTO. 

840 GOSUB 730 
850 FOR Q=1 TO 500 
860 NEXT Q 

870 CALL HCHAR(21,1,32,32) 

880 CALL HCHAR(A,B,112) 

890 REM MOVIMENTO MR. JUMP 
900' CALL KEY ( 0 , K , W > 

910 IF K< >32 THEN 980 

920 IF (BP=0) + (PR>0)THEN 1430 

930 BP = BP — 1 

940 CALL HCHAR(4,4+BP,32) 

950 CALL CHAR(96,"7Ctf6FEC682BA7C") 
960 PR = 1. 

970 GOTO 1430 

980 I=(K=65)+(K=76)-(K=88)-(K=77) 
990 J=(K=65)+(K=77)-(K=88)-(K=76) 
1000 IF ( 1=0) + (J=0)THEN 1430 
1010 CALL HCHAR(A,B,32) 

1020 A=A+I*2 
1030 B=B + J*2 

1040 CALL HCHAR ( A,B,112) 

1050 IF ( A< >X) + <B< >Y)THEN 1190 
1060 IF PR=0 THEN 1680 
1070 CALL HCHAR(A,B,138) 

1080 P = P +150 

1090 CALL SOUND (100,330,3,331,3) 
1100 CALL SOUND(100,294,3,295,3) 
1110 CALL SOUND(100,262,3,263,3) 
1120 CALL SOUND(250,330,3,331,3) 
1130 Q$ = "0226 l, 5iSTRI (P) 

1140 GOSUB 730 

1150 CALL HCHAR(A,B, 112) 

1160 X = 19 
1170 Y=30 

UBO CALL HCHAR ( X , Y , 96) 

1190 CALL GCHAR(A+1,B,G) 

1200 IF G=32 THEN 1680 
1210 IF G=E-1 THEN 1430 
1220 CALL SOUND(100,G,1) 

1230 CALL HCHAR(A+l,B—1,G+8,3) 

1240 R=R+1 
1250 P=P+20 

1260 IF R<MR THEN 1430 
1270 S=S+1 

1280 IF SCIO THEN 1300 
1290 S=9 
1300 R=0 

1310 FOR K=1 TO BP 


1320 CALL S0UND(200,856,1,855,1,854,1) 
1330 CALL HCHAR(4,BP-K+4,32) 

1340 P=P+50 

1350 Q$ = "0226"S!STRi (P) 

1360 GOSUB 730 
1370 NEXT K 
1380 BP = BP +1 

1390 CALL HCHAR(4,4,42,BP) 

1400 CALL HCHAR(A,B,32) 

1410 CALL HCHAR(X,Y,32) 

1420 GOTO 570 

1430 REM MOVIMENTO MOSTRO 
1440 IF PR=0 THEN 1500 
1450 PR=PR+1 

1460 CALL SOUND(—300,1760—PR*110,1) 

1470 IF PRC15 THEN 880 
1480 PR=0 

1490 CALL CHAR(9ó,"7CB6FEAA82AA7C") 

1500 CALL HCHAR < X,Y,32) 

1510 IF IN T (RND*10K=(S-INT (S/3) *3) THEN 
1560 

1520 I = SGN(RND-.5) 

1530 J = SGN (RND — .5) 

1540 CALL GCHAR(X+I*2+1,Y+J*2,G) 

1550 IF G< >32 THEN 1580 
1560 I = SGN(A-X) 

1570 J=SGN(B-Y) 

1580 IF (I< >0)*(J< >0)THEN 1630 

1590 IF J=0 THEN 1620 

1600 I=-l 

1610 GOTO 1630 

1620 J = SGN(RND-.5) 

1630 X=X+I*2 
1640 Y=Y+J*2 
1650 CALL HCHAR(X,Y , 96) 

1660 IF (A=X)*(B=Y)THEN 1680 

1670 GOTO 900 

1680 REM MORTE MR. JUMP 

1690 CALL SOUND(-1000,-6,0,110,1) 

1700 V=V-1 

1710 IF V=0 THEN 1780 
1720 CALL HCHAR(2,V*2+2,32) 

1730 CALL HCHAR(A,B,32) 

1740 CALL HCHAR(X,Y,32) 

1750 Q$="0226 ,, &STR$(P) 

1760 GOSUB 730 
1770 GOTO 790 
1780 REM GAME OVER 
1790 Q$="0226"&STR$(P) 

1800 GOSUB 730 

1810 Q$="2007G A M E OVER" 

1820 GOSUB 730 

1830 Q*=“2205GI0CHI ANCORA 7 " 

1840 GOSUB 730 
1850 CALL KEY(0,K,S) 

1860 IF K=83 THEN 500 
1870 IF K< >78 THEN 1850 
1880 END 
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Si conclude con questo numero la 
pubblicazione dei programmi scelti 
tra quelli partecipanti al concorso 
STRIKE. 

I nostri tecnici — nelle vesti di 
imparziali giudici — per poterli 
visionare tutti hanno trascorso ore e 
ore davanti ai vari computers: 
qualche parere discorde... ma infine 
sempre l’unanimità. 

In verità i soggetti proposti non 
sempre sono stati meritevoli per 
originalità, ma qualcosa di buono si 
è comunque visto. 

Ciò che ha colpito di più è stato 
invece il maggior numero di 
programmi pervenuti riguardanti gli 
home-computers «meno diffusi». 
Come mai? È forse la grande 
disponibilità in commercio di 


software su cassetta per alcune 
marche che ha «impigrito» a 
programmare? O è forse la 
mancanza di un tale supporto per 
quelli «meno noti» che ha costretto a 
«farsi in casa» i programmi? 

STRIKE ha avuto comunque un gran 
successo; a giudicare dalle 
tantissime lettere dei nostri lettori i 
programmi pubblicati hanno 
insegnato loro qualcosa di nuovo, 
nuovi spunti, nuove idee. 

Per questo pensiamo più in là di 
riproporre un qualcosa di simile ma 
sicuramente più interessante! 

Dunque tenete sempre in 
«frigorifero» qualche vostro 
programma che ritenete valido... 
potrebbe tornarvi utile! 

Ed infine non ce ne vogliano quei 


lettori che hanno visto esclusi i 
propri lavori. Promettiamo che 
comunque, spazi permettendo, 
vedranno pubblicato il loro nome con 
il listato; sarà come un piccolo 
premio di consolazione, un vanto 
con gli amici. 

Tocca a voi, dunque!! Noi abbiamo 
operato una prima cernita... i vostri 
voti decideranno ora i migliori 
programmi!! 

Ricordate! Tra chi avrà inviato il 
voto sarà estratto a sorte il 
vincitore di 1.000.000 di lire. 

VOTA 


Ecco di seguito l’elenco di tutti i programmi pubblicati per il concorso: 


ZX-SPECTRUM 

1) LINEE ZERO di Saverio Cantone - ROMA 

2) TOMBOLA di Tommaso Calò - ROMA 

3) IL 13 MINUTO PER MINUTO di Fabio Travi - ROMA 

4) IL LOTTO di Elio Girone - MARANO (NA) 

TI - 99/4A 

1) LE MINE di Gianni Martini - COLDIROBI (IM) 

2) VINCI QUATTRO di Davide Inbeni - MODENA 

3) DATA BASE di Luciano Marchetto - NICHELINO (TO) 

4) MISSION VENUS di Roldano Zappalà - S. GIUSTINO (PG) 

5) SNAKE di Lorenzo Sciucca - ROMA 

6) OLIMPIADI di Filippo Pergola - ROMA 

7) OMEGA LANDER di Fabio Torti - TORTONA (AL) 

8) MR. JUMP di Enrico Combi - MODENA 

SEGA SC-3000 

1) PAROLIAMO di Ettore Fruscoloni - ROMA 

2) ASTRO WAR di Saverio Forestiero - ROMA 

3) PIANOFORTE di Enrico Grandis - BATTAGLIA T. (PD) 

4) TIRO A VOLO di Simone Grandis - BATTAGLIA T. (PD) 

5) UOVA SPAZIALI di Arturo Cucè - MESSINA 

6) BATTAGLIA AEREA di Enzo Masci - ROMA 

7) SPIDER di Franco Albanelli - CASTELGOMBERTO (VI) 

8) ARCHER di Adamo Antonellini - FUSIGNANO (RA) 

9) REAL GOLF di Mario Frustaci - AREZZO 

10) SUPER MASTER MIND di Fabio Canta - OSTIA (ROMA) 


SHARP MZ-700 

1) ELECTRONIC MASTERMIND di Luca Bonguerrieri - GENOVA 

2) SALISCENDI di Stefania Palombi - ROMA 

3) SLOT MACHINE di Dario Letizia - NAPOLI 

4) BOXE di Massimo Moras - PORDENONE 

5) JAZZI di Marco Marzano - ROMA 

6) IL CASTELLO DI WIZ di Alessandro Arposio - MILANO 

7) CILIEGIE di Mauro Scarsoglio - ALESSANDRIA 

8) BIORITMI di Costantino Costanzi - MONZA (MI) 

9) SCI ALPINO di Alessandro Altemani - CASTEL D’AZZANO (VR) 

10) DISPERSIONI TERMICHE di Giacomo Monnanni - AREZZO 

ORIC 1 

1) BREAK OUT di Marco Belli - ROMA 

2) SALTA LA RANA di Fabrizio Cuminetti - ROMA 


MPF II 

1) CONTRAEREA di Alfredo Broussard - DOSSOBUONO (VR) 

2) MASTERMIND di Massimo Marinelli - ROMA 

CBM 64 

1) SINT CODER di Marco Giusti - PISA 

2) FLIGHT PLAN di Marco Olivotto - ROVERETO (TN) 

3) ECONOMIA CASA di Dino Mazzini - CASALECCHIO DI RENO 
(BO) 

4) PITAGORA di Antonio Procida - ORECCHIO (CH) 

5) EASY SPRITE di Moretto - MESTRE (\£) 

6) WIMBLEDON '84 di Bruno Brunelli - FOLIGNO (PG) 

7) BILANCIO di Luigi Rusticali - RUSSI (RA) 

VIC 20 

1) IL SERPENTE di Simone Mariani - OSTRA (AN <*> 

2) CAPITALI EUROPEE di F.P. De Gisi - ATRIPALDA (AV) ' 

3) FISHERMAN di Luca Nardini - VELLETRI (ROMA) (') 

4) BIORITMI di Paolo de Maria - VENARIA (TO) 

5) TASTI FUNZIONE di Stefano Ronconi - NOVATE MILANESE 
(MI) 

6) FORMULA 1 di Angelo Ariaudo - MILANO 

7) GHOST di Giulio D’Urso - FIRENZE 

8) CRAZY WORD di Giuseppe Burgio - MILANO 

9) BRUCE di Farinelli/Cervellara - BOLOGNA 

10) SPACCAMATTONI di Roberto D’Acunto - SCAURI (LT) 

ZX - 81 

1) SWIMMING POOL di Francesco Mondelli - OSTIA (ROMA) 

2) I POMPIERI di Marco Michieli - ROMA 

3) POETA SINCLAIR di Mario Caracciolo - TORINO 

4) U.S.A. di Raffaello Danti - SESTO FIORENTINO (FI) 

5) CONDOMINIO di Loris Gerini - FALCONARA MARITTIMA (AN) 

ATTENZIONE: Avvertiamo i lettori che i programmi 
«FISHERMAN» e il «SERPENTE» pubblicati sul n. 2/85 di LIST, in 
quanto ritenuti, in un primo momento, meritevoli di rientrare nella 
rosa delle nove categorie, sono stati successivamente ESCLUSI dal 
concorso essendo risultati in violazione al regolamento dello stesso 
concorso, non originali, in quanto pubblicati con identica stesura, il 
primo sul n. 11/84 della rivista «PAPERSOFT» e il secondo sul n. 
2/84 della rivista «LOAD ’N'RUN». 

Pertanto le cartoline voto relative a tali programmi NON SARANNO 
RITENUTE VALIDE ai fini del sorteggio finale. 
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La Giuria del 
Concorso STRIKE 












# 

Ecco le due schede che 
compilare in ogni parte, 
scheda è quella del voto vero e 
proprio, la seconda è «informativa»: 
servirà a conoscere qualcosa di più 
dei nostri lettori al fine di trarre 
indicazioni atte a migliorare la 
rivista. 

Una volta che avrete compilato il 
tutto, ritagliate la pagina, ripiegate 


e spedite in una busta affrancata al 
seguente indirizzo: 

Spett. LIST 

PROGRAMMI PER IL TUO HOME 
COMPUTER 

CASELLA POSTALE 4092 
00182 ROMA APPIO 


Ricordate che saranno ritenuti validi 
e partecipanti all’estrazione del 
premio di un milione di lire solo i voti 
pervenuti entro e non oltre il 30 
Giugno 1985. 



LA CARTOLINA 


VOTA, QUEL FORTUNATO POTRESTI ESSERE TU!!! 




CARTOLINA VOTO CONCORSO 



AUT. MIN. N. 4/267178 del 25/7/84 


□ TITOLO DEL PROGRAMMA 


□ COMPUTER 


□ AUTORE 


nome 

1 1 1 II II 1 1 

Il II 1 1 1 

cognome 

1 1 1 II 1 1 1 1 

1 1 1 1 1 1 f 

via 

MIMMI 

Il II M ! 

città 

Il 1 II 1 1 

Il II 1 1 


ca P* età 
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QUESTIONARIO 



COME GIUDICHI GLI ARGOMENTI TRATTATI 

□ POCO INTERESSANTI 

□ INTERESSANTI 

□ MOLTO INTERESSANTI 

TROVI UTILE DIGITARE I PROGRAMMI PUBBLICATI? 

□ SI. 

□ NO. PERCHÉ?_ 


SAI SCRIVERE UN PROGRAMMA? □ SI. □ NO. 

QUALI SONO LE DIFFICOLTÀ CHE INCONTRI PIÙ FREQUENTE¬ 
MENTE NELL'USO DEL COMPUTER?_ 


DA QUANTO TEMPO POSSIEDI UN COMPUTER?_ 

QUALE?_ 

CON QUALI PERIFERICHE E/O ESPANSIONI DI MEMORIA? 


INTENDI CAMBIARLO? □ SI. □ NO. 

CON QUALE?_ 

PERCHÈ? __ 


QUALE ALTRO COMPUTER POSSIEDI? 


SE NON HAI ANCORA UN COMPUTER, INTENDI ACQUISTARLO? 

□ SI. QUALE? _ 

CON QUALI PERIFERICHE E/O ESPANSIONI DI MEMORIA? 

□ NO. PERCHÉ?_ 

HAI ACQUISTATO O INTENDI ACQUISTARE UN COMPUTER: 

□ PER GIOCO 

□ PER STUDIO 

□ PER LAVORO 

□ PER_ 


DA QUANTO TEMPO LEGGI LIST?_ 

COMPRI LIST: 

□ RARAMENTE 

□ SPESSO 

□ SEMPRE 

QUANTE ALTRE RIVISTE DI INFORMATICA LEGGI? 
PERCHÉ?__ 


HAI ACQUISTATO LIST LA PRIMA VOLTA: 

□ CONSIGLIATO DA ALTRI 

□ PER CURIOSITÀ 

□ ALTRO_ 

COME GIUDICHI IL MODO DI TRATTARE GLI ARGOMENTI? 

□ ELEMENTARE 

□ CHIARO 

□ COMPLESSO 


QUALI PROGRAMMI PREFERISCI? 

□ SCIENTIFICI 

□ DIDATTICI 

□ APPLICATIVI 

□ DI GRAFICA 

□ DI MUSICA 

□ DI GIOCHI 

□ ALTRO_ 

TRASFERISCI I PROGRAMMI DI LIST SU COMPUTER NON TRAT¬ 
TATI NELLA RIVISTA? 

□ SI. SU QUALI?_ 

□ NO. 

QUALI SONO LE RUBRICHE A CUI SEI INTERESSATO? 

□ NEWS 

□ TEORIA 

□ PROVE DI MACCHINA 

□ PROVE DI PROGRAMMI 

□ QUOTAZIONI DEI COMPUTER 

□ PICCOLI ANNUNCI 

□ PROGRAMMI PRE-REGISTRATI 

□ FUMETTI SUI COMPUTER 

□ ALTRO_ 

COSA PROPORRESTI PER MIGLIORARE LIST?_ 


NOME_ 

COGNOME_ 

TITOLO DI STUDIO_ 

PROFESSIONE__ ANNI 

VIA_ f _ N. 

CITTÀ_ PROV. _ 

TELEFONO_ CAP_ 


































































































Testo per il riassunto delle 
puntate precedenti. 
“L’amico segreto” 

Terza puntata. 

Paolo, con l’aiuto dell’uovo- 
robot riesce a rintracciare 
Robertino sequestrato su u- 
na nave. Ma, mentre lancia 
un S.O.S. via radio viene 


- (gOSSU & QUARZI PRESENTANO : - 

[ 1111» SOLITE 


sorpreso... 




































































































in boro 

JESWS. ”« 

fflffirmntf dell * 
nu.E- uu- ri 
7 Film UILE ERERI^RE]/ 

IIRTRETTERE 

frrolr 

EHIRUE 



BEHEUERRU 

PRROLR EHIRUE non 
EDRRETTR 


IEERHJ5H1 

PRROLR EHIRUE POR 
EDRRETTR 

THEUIFSI 

PRROLR EHIRUE ROTI 
EDRRETTR 




(Una volta 

ARRIVATO AL 
CUORE DEI 
COMPUTER DI 
BORDO,L’UO/l 
ROBOT SI AC¬ 
CERTA DEL 
GRADO DJ 
ELABORATO 
DELSOFTWAR 
E LAVORA PE 
ARRICCHIRLO 
HA INFATTI Uf 
COMPITO IMPE 
GNATIVO PA 
ASSEGNARGLI. 





























































































































f UOVO-ROBOT DA' BIRUZCNI PRETTAMENTE IN LIN¬ 

GUAGGIO MACCHINA ALUHEliaWCWO fBKHHBUWE SU 
SATELLITE DEL SISTEMA LO.RAJt,CHE REGOLA LA NAVI- 
GAZIOKJE, SI METTA IN CONTATTO CON LA GUARDACO¬ 
STE PIU 1 VICINA COSTITUENDO UNA RETE PI COMPUTERÒ. 



/messaggio ad altissima 
priorità- 

due ragazzi vittime di 
un sequestro a bordo d 
el truff-al - dhin, 7000 
ton. stazza lorda, pesca 
ggiomt.4, lungh. mt.80, 
velocita-1 0 nodi, rotta 
vera 255° 

a tutte le pattuglie co 
nvergere sul punto di 
coord.40°24'N 14°23,5 E 






cosj£ 




^ IN t$° 


^ PAPA\ ^ 
QUANDO VUOl.Tl PRE¬ 
STO QUALCHE FUMET- 
TO! ^ 


5 —? /C-. 1 no r-i ooool o \ «PV 




4^=nl TRAT-Al-m/ 

la~ | \ 


N z—/- 

Ir- >’ \ \ 



1 1 ®1P? Q yr-v \ 


1 r 





























































































































NON CE LA 

RACCONTI GIUSTA... PRIMA 
RISOLVI LE EQUAZIONI IN 2 AM¬ 
INOTI .POI SALVI ROB. SECONDO 
me QHkwmmMjm, 

AAA UN GIORNO 0 L'ALTRO 
SAI DIRCELO.' 






































































































































































































































































ora con questi nume 

CHE CI FACCIAMO? 

Li SOMMIAMO 
■ t SOTTRAIAMO 

: MOLTIPLICHIAMO 

: DIVIDIAMO 


ORA CON QUESTI NUMERI 
CHE CI FACCIAMOO 
SOMM IAMO 
SOTTRA IAMO 

= 133225 
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6ASF VERO grrcmo. 

PRIMO PIANO SOL DOMANI 










